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SUMMARY 


The  development  of  an  improved  aircraft  ground  vibration  testing  method  is  dis¬ 
cussed.  This  method,  a  single  point  excitation-frequency  response  analysis 
method,  greatly  reduces  the  cost  of  ground  vibration  testing  while  offering 
significant  improvements  in  accuracy.  The  development  of  this  improved  method 
begins  with  a  description  of  the  testing  philosophy  and  objectives  of  ground 
vibration  testing  at  airframe  manufacturers  in  the  United  States,  followed  by  a 
description  of  the  ground  vibration  test.  The  state  of  the  art  review  includes  a 
broadly  based  literature  survey.  The  industry  interviews  reveal  areas  where  the 
airframe  industry,  with  exceptions,  is  behind  the  state  of  the  art,  and  shows 
opportunities  for  rapid  improvement. 

The  single  point  exci tat  ion- frequency  analysis  method  separates  the  ground 
vibration  test  into  a  measurement  phase  and  an  analysis  phase.  The  measurement 
phase  is  conducted  on  the  test  site,  and  results  in  measurements  of  excitation 
and  response.  The  analysis  phase  is  conducted  in  the  laboratory  computer  room, 
and  results  in  frequency  response  functions  and  modal  characteristics.  Recom¬ 
mendations  include  methods  for  ground  vibration  testing  and  specific  equipment 
items  to  improve  the  test. 

Recommendations  are  also  made  for  future  research  and  development  and  for 
approaches  by  which  ground  vibration  testing  improvements  may  be  applied  to  USAF 
programs.  A  demonstration  ground  vibration  test  was  conducted  using  the  recom¬ 
mended  method.  This  test  on  an  A-10  airplane  is  reported  in  Volume  II  of  this 
report.  A  "Guide  for  Ground  Vibration  Testing  of  Airplanes,"  which  incorporates 
the  recommended  method  is  also  included  in  an  appendix. 
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1.0  INTRODUCTION 


Ground  vibration  testing  is  an  important  element  in  the  development  of  airplane 
structures.  Knowledge  of  the  dynamic  characteristics  of  an  aircraft  is  needed  to 
analyze  gust  loads,  flutter,  shimmy,  stability  and  control,  maneuver  loads, 
buffet  loads,  environmental  vibration,  ride  comfort,  acoustics,  taxi  loads, 
landing  loads,  etc.  Calculating  the  dynamic  characteristics  is  a  complicated 
process  which  is  done  during  preliminary  design  and  final  design  of  an  airplane. 
The  Ground  Vibration  Test  is  necessary  to  insure  that  the  dynamic  characteristics 
used  in  all  the  dynamic  analyses  are  correct. 

The  opportunity  for  a  significant  improvement  in  ground  vibration  testing 
occurred  when  advances  in  a  number  of  the  vibration  testing  detail  techniques  had 
improved.  These  advances  were  the  result  of  incorporating  the  computer  into  the 
test  equipment,  developments  in  integrated  electronic  circuitry,  developments  in 
vibration  testing  theory  and  improvements  in  mechanical  system  design.  Selec¬ 
tion  of  the  methodology  for  this  improved  ground  vibration  testing  method,  inte¬ 
gration  of  advances  in  detailed  techniques  into  this  method,  some  further 
advances  and  a  demonstration  of  this  improved  method  constituted  the  reported 
research. 

The  discussion  in  this  report  begins  with  testing  philosophy  and  objectives.  The 
testing  philosophy  and  objectives  of  vibration  testing  as  practiced  in  the  United 
States,  and  by  the  airframe  industry  in  particular,  is  defined.  The  description 
of  a  ground  vibration  test  follows,  in  which  its  differentiation  into  measurement 
and  analysis  phases,  and  its  goals  and  assumptions  are  discussed. 
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The  state  of  the  art  review  draws  from  a  literature  review,  industry  interviews 
and  in-house  experience.  The  review  first  discusses  the  general  methods  used  in 
vibration  testing,  then  reviews  specific  techniques  used  in  ground  vibration 
testing  and  the  characteristics  of  modal  parameter  estimation.  The  process  for 
selection  of  a  recommended  ground  vibration  testing  (GVT)  method  follows.  The 
candidate  methods  are  rated  by  several  criteria  and  analytical  studies  of  the 
modal  estimation  process  are  discussed. 

The  recommended  ground  vibration  testing  method,  the  single  point  excitation- 
frequency  response  analysis  method,  is  described  in  detail.  The  measurement 
phase  and  the  interpretation  phase  of  a  test  conducted  by  this  method  are  out- 
1 ined. 

Conclusions  are  drawn  on  the  current  state  of  the  art  and  on  the  recommended  GVT 
method.  Recommendations  on  ground  vibration  test  method  are  made.  Also  the  use 
of  certain  items  of  equipment  is  recommended  for  use  in  a  GVT.  Research  and 
development  recommendations  which  would  further  improve  the  GVT  are  made. 
Finally  recommendations  are  made  on  applying  the  GVT  improvements. 

The  appendices  include  a  "Guide  for  Ground  Vibration  Testing  of  Airplanes"  which 
incorporates  the  recommended  method  and  Volume  II  contains  the  "A-10 
Demonstration  GVT  Test  Report."  The  latter  report  documents  a  demonstration  GVT 
that  was  conducted  using  the  recommended  method.  An  appendix  discusses  design 
and  development  of  an  aircraft  soft  support  system  that  was  fabricated  for  use  in 
the  demonstration  GVT. 


2.0  DISCUSSION 


2.1  TESTING  PHILOSOPHY  AND  OBJECTIVES 

An  airplane  ground  vibration  test  is  a  test  performed  on  an  airplane  to  measure 
its  structural  dynamic  characteristics.  The  principal  reason  for  conducting  a 
GVT  is  usually  to  support  the  flutter  clearance  program,  a  critical  safety  of 
flight  item.  Other  important  problem  areas  supported  by  the  GVT  include  gust 
loads,  shimmy,  stability  and  control,  maneuver  loads,  buffet  loads,  environ¬ 
mental  vibration,  ride  comfort,  acoustics,  taxi  loads  and  landing  loads. 

In  the  flutter  clearance  program  a  mathematical  model  cf  the  airplane  is  usually 
developed.  This  model  is  the  flutter  engineer's  abstraction  of  the  mass  and 
stiffness  characteristics  of  the  airplane.  The  objective  of  the  ground  vibration 
test  is  to  provide  data  to  validate,  improve  or  replace  the  mathematical  model. 

The  quality  of  the  finished  test  data  must  be  adequate  for  the  engineering  task 
it  is  needed  for.  Concurrent  with  this,  the  resources  expended  nust  be  minimized 
and  all  cost  and  time  estimates  must  be  reliable.  This  implies  that: 

a.  The  length  of  time  the  test  airplane  is  commited  to  the  test  must  be  mini¬ 
mized. 

b.  The  number  of  skilled  engineers  and  technicians  necessary  to  run  the  test 
must  be  minimized. 

c.  The  test  usually  runs. 24  hours/day,  until  it  is  complete. 

d.  Total  cost  of  running  the  test  must  be  minimized.  This  cost  includes  the 
opportunity  cost  associated  with  occupancy  time  on  the  test  airplane,  man 


3 


power,  equipment  and  the  costs  associated  with  delays  in  feedback  of  test 
results  into  the  airplane  development  cycle. 

2.2  DESCRIPTION  OF  GROUND  VIBRATION  TESTING 

2.2.1.  Definition  of  Experimental  Modal  Analysis 

Experimental  modal  analysis  is  a  test  procedure  for  experimentally  determining 
the  motion  of  a  structure  in  response  to  forces  that  excite  the  structure.  This 
description  includes  a  mathematical  model  for  abstracting  the  behavior  of  the 
structure  and  the  values  of  the  parameters  in  that  model.  The  model  chosen  is 
based  upon  assumptions  about  the  structure's  behavior.  The  values  of  the  para¬ 
meters  are  determined  by  a  parameter  estimation  process  applied  to  measurements 
of  the  structure's  input  (excitation  force)  and  output  (motion  or  response) 
signals.  In  this  respect  the  structure  is  treated  as  a  "black  box"  problem,  in 
which  the  behavior  is  inferred  from  the  input-output  measurements.  The  process 
of  experimental  modal  analysis  generally  consists  of  a  measurement  phase  and  an 
interpretation  (or  analysis)  phase. 

2.2.1. 1  Measurement 

In  the  measurement  phase  of  a  ground  vibration  test  excitation  is  applied  to  the 
airplane  and  its  response  is  measured.  During  most  ground  vibration  tests  a 
controlled  force  input  is  applied  to  the  airplane  and  acceleration,  velocity  or 
displacement  are  measured  at  a  number  of  points  on  the  airplane. 
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2. 2. 1.2  Interpretation 


Interpretation  of  the  measurements  is  in  terms  of  the  mathematical  model  assumed 
for  the  airplane. 

Linear  Mathematical  Model 

A  linear  mathematical  model  is  usually  assumed  for  the  airplane  whenever 
possible.  The  unknown  model  parameters  interpreted  from  the  test  measurements 
are  invariably  the  modal  characteristics  of  this  model;  frequency,  damping  and 
modeshape.  Occasionally  additional  characteristics  are  reduced  from  the  mea¬ 
surements.  These  include  generalized  mass  and  point  mass,  stiffness  and  damping 
coefficients. 

Non-Linear  Mathematical  Model 

When  a  linear  model  is  not  a  sufficient  approximation  to  the  airplane's  struc¬ 
tural  dynamic  characteristics,  a  non-linear  model  must  be  used.  This  is  done  as 
infrequently  as  possible,  and  the  models  are  kept  as  simple  as  possible,  because 
this  interpretation  process  is  substantially  more  difficult  than  in  the  case  of 
the  linear  mathematical  model.  There  is  no  generally  applicable  nonlinear  mathe¬ 
matical  model.  A  model  appropriate  to  the  problem  at  hand  must  be  selected  for 
each  application.  Considerable  research  remains  to  be  done  on  the  subject  of 
measurement  interpretation  for  nonlinear  mathematical  models. 
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2.2.2  Goals 

The  identification  of  the  goals  of  an  experimental  modal  analysis  test  is  an 
essential  part  of  the  choice  of  best  test  procedure.  At  the  present  time  there 
are  three  primary  uses  of  modal  parameters: 

1.  Trouble  Shooting 

2.  Modeling 

3.  Synthesis 

Vibration  testing  is  concerned  with  all  three  uses  of  the  results  at  varying 
points  in  the  life  of  an  airplane.  As  the  use  of  modal  parameters  change  the  test 
requirements  are  changed. 

In  the  specific  case  of  the  airplane  ground  vibration  test,  verification  and,  if 
necessary,  modification  of  the  mass  and  stiffness  matrices,  used  in  the  flutter 
analysis,  is  often  the  primary  goal  of  the  test.  The  construction  of  a  mathe¬ 
matical  model  for  flutter  analysis  is  occasionally  the  goal,  wherein  generalized 
mass,  stiffness,  damping,  and  (via  the  modeshape)  aerodynamic  force  matrices  are 
developed.  Modal  parameters  is  a  convenient  mathematical  model  which  can  be 
applied  to  both  the  experimental  test  and  the  theoretical  analysis. 

2.2.3  Assumptions 

Three  basic  assumptions  about  a  structure  are  made  in  order  to  perform  an  experi¬ 
mental  modal  analysis  which  includes  a  linear  mathematical  model.  First,  the 
structure  is  assumed  to  be  linear.  This  means  that  the  response  of  the  structure 
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to  a  combination  of  forces,  simultaneously  applied,  is  the  sum  of  the  individual 
responses  to  each  of  the  forces  acting  alone  (i.e.,  the  superposition  principle 
holds).  For  a  wide  variety  of  structures  this  is  a  very  good  assumption.  When  a 
structure  is  linear,  its  behavior  can  be  characterized  by  a  control led-excita- 
tion  experiment  in  which  the  forces  applied  to  the  structure  have  a  form  conveni¬ 
ent  for  measurement  and  parameter  estimation,  rather  than  being  similar  to  the 
forces  that  are  actually  applied  to  the  structure  in  its  normal  environment.  For 
many  important  kinds  of  structures,  however,  the  assumption  of  linearity  is  not 
valid.  In  these  cases  the  linear  model  that  is  identified  often  provides  a 
reasonable  approximation  of  the  structure's  behavior. 

The  second  basic  assumption  is  that  the  structure  is  time-invariant.  This  means 
that  the  parameters  that  are  to  be  determined  are  constants.  In  general,  a 
system  which  is  not  time- invariant  will  have  components  whose  mass,  stiffness,  or 
damping  depend  on  factors  that  are  not  measured  or  are  not  included  in  the  model. 
If  the  structure  that  we  are  testing  is  changing  with  time,  then  measurements 
made  at  the  end  of  the  test  period  would  determine  a  different  set  of  modal 
parameters  than  measurements  made  at  the  beginning  of  the  test  period. 

The  third  basic  assumption  is  that  the  structure  is  observable.  This  means  that 
the  input-output  measurements  that  we  make  contain  enough  information  to  gener¬ 
ate  an  adequate  behavioral  model  of  the  structure.  Structures  and  machines  which 
have  loose  components,  or  more  generally,  which  have  degrees  of  freedom  of  motion 
that  are  not  measured  are  not  completely  observable.  Consider  describing  the 
motion  of  a  partially-filled  tank  of  liquid  when  complicated  sloshing  of  the 
fluid  occurs.  Sometimes  we  can  make  enough  measurements  so  that  our  system  is 
observable  under  the  form  chosen  for  the  mathematical  model,  and  sometimes  no 
amount  of  measurements  will  suffice  until  we  change  the  model. 
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2.3  STATE  OF  THE  ART  REVIEW 


2.3.1  Survey 

2. 3. 1.1  Literature  Review 

The  literature  reviewed  was  identified  by  both  manual  and  automated  search  proce¬ 
dures.  Known  articles  of  value,  as  well  as  literature  referenced  within  these 
articles,  were  identified  first.  This  material  dates  back  to  approximately  1945. 

Then,  independent  computer  searches  were  conducted  by  the  University  of  Cincin¬ 
nati  and  The  Boeing  Company  involving  the  following  data  sets: 

1.  NT IS 

2.  COMPENDEX 

3.  ISMEC 

4 .  SAE  ABSTRACTS 

5 .  NASA 

6.  DOC 

Classified 

Unclassified 

The  results  of  the  computer  searches  consisted  of  about  2,000  listings  of  title, 
author,  source,  and  abstract.  This  computer  search  process  included  material  no 
earlier  than  1965.  Candidate  literature  items  were  selected  by  review  of  the 
contents  of  their  abstracts.  Finally,  the  manual  and  computer  searches  were 
combined  to  eliminate  duplication  which  resulted  in  approximately  400  pieces  of 
literature  being  identified.  Ninety  percent  of  this  literature  was  acquired. 
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(See  reference  lists  following  this  volume.)  The  most  significant  literature  of 
the  reference  material  was  selected  and  is  summarized  in  Appendix  D  by  subject 
matter.  A  chart  summarizing  the  content  of  the  reviewed  literature  is  shown  in 
Appendix  E. 

2.3. 1.2  Industry  Interviews 

A  series  of  interviews  were  held  to  ascertain  the  state  of  the  art  as  practiced 
in  the  airframe  industry.  The  groups  selected  for  interview  were  identified  by 
the  Flight  Dynamics  Laboratory  of  the  Air  Force  Wright  Aeronautical  Laboratories 
as  experienced  in  ground  vibration  testing.  Additional  individuals  selected  as 
having  expertise  in  vibration  testing  were  also  interviewed. 

Most  of  the  personal  interviews  were  performed  on  the  site  of  the  organization 
interviewed.  The  interviews  were  conducted  by  a  combined  team  from  the  Univer¬ 
sity  of  Cincinnati  and  The  Boeing  Company.  Typically,  two  to  three  hours  were 
spent  in  the  interview  combined  with  a  tour  of  test  facilities  and  equipment.  A 
standard  interview  reporting  form  was  used  and  frankness  was  encouraged  by  keep¬ 
ing  the  details  of  the  interview  confidential. 

2.3.2  Current  State  of  the  Art 

2. 3. 2.1  Airframe  Industry  Practice 

Aircraft  industry  practice  varied  widely.  All  large  airframe  companies  have  an 
in-house  ground  vibration  test  group.  Their  experience  levels  vary  dramati¬ 
cally;  some  conduct  several  GVT's  a  year;  others  run  one  test  per  decade.  The 
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most  difficult  problem  the  airframe  industry  has  in  conducting  vibration  testing 
is  in  finding,  training,  and  retaining  adequately  skilled  people.  A  summary  of 
the  industry  interviews  can  be  found  in  Appendix  C. 

The  survey  disclosed  four  major  reasons  why  airplane  companies  conduct  GVT: 

1.  Comparison  with  a  mathematical  model  developed  for  flutter  analysis 

2.  Troubleshooting  of  existing  aircraft 

3.  Research 

4.  Development  of  modal  pas  ’meters  to  use  in  analysis 

In  most  airplane  GVT's,  frequencies,  dampings  and  mode  shapes  are  the  desired 
test  result.  Where  fast  Fourier  transform  equipment  is  in  use,  frequency 
response  functions  and  coherence  plots  are  produced  as  matter  of  course.  The 
more  advanced  developments,  complex  mode  shapes,  generalized  mass,  stiffness  and 
damping,  transfer  functions  and  orthogonality  checks,  are  less  frequently 
required,  although  there  are  organizations  where  some  of  these  are  routine. 

Shakers  are  used  for  excitation  for  most  airplane  ground  vibration  tests, 
although  occasionally  impact  and  operating  inputs  are  used.  Impact  testing  has 
been  utilized  for  testing  flight  control  surfaces.  Autopilot  inputs  to  a  large 
flight  control  surface  have  provided  sufficient  inertia  excitation  to  shake  out 
critical  wing  modes  on  a  very  large  airplane.  Single  shaker  inputs  are  used  to 
excite  both  one  degree  of  freedom  at  a  time  or  multiple  degrees  of  freedom.  Of 
the  multiple  shaker  systems  in  common  use,  most  are  groups  of  shakers  operated  in 
or  out  of  phase  to  drive  symmetric  and  antisymmetric  airplane  modes.  They  are 
used  less  frequently  in  apportioned  force  approaches.  With  rare  exceptions  the 
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multiple  shaker  arrangements  are  used  to  excite  one  degree  of  freedom  at  a  time. 
Several  organizations  had  research  activities  addressing  the  measurement  of 
multiple  degrees  of  freedom  using  multiple  exciters. 


The  excitation  signal  used  in  GVT  systems  which  do  not  incorporate  a  fast  Fourier 
transform  computer  is  invariably  sinusoidal.  The  excitation  signals  generally 
used  with  FFT  systems  are  random,  although  others  are  used  such  as  sinusoidal, 
periodic  random,  random  transient,  impact,  chirp,  etc. 

The  data  acquisition  techniques  used  were  found  to  be  a  function  of  the  GVT 
development  work  done.  Where  little  development  had  been  done,  a  roving  acceler¬ 
ometer  was  used  with  a  strip  chart  recorder.  In  the  developed  systems,  over  100 
fixed  response  transducers  were  used  with  digitized  data  being  recorded  directly 
on  disk  under  computer  control.  The  norm  is  a  large  number  of  accelerometers 
with  their  response  recorded  directly  on  analog  tape. 

Parameter  estimation  under  swept  sine  and  dwell  is  a  single  degree  of  freedom 
(i.e.  a  single  mode)  at  a  time  process.  The  parameter  estimation  techniques 
used  with  the  modal  analyzer  computers  usually  used  the  software  provided  by  the 
manufacturer.  User  written  parameter  estimation  algorithms  are  rarely  used  on 
GVT  outside  research  organizations .  The  algorithms  used  in  GVT  are  single  degree 
of  freedom,  single  degree  of  freedom  with  residuals,  multiple  degree  of  freedom, 
and  multiple  degree  of  freedom  with  residuals. 

A  free-free  support  for  the  airplane  in  test  is  universally  desired,  although 
there  is  some  disagreement  over  the  frequency  separation  necessary.  Require¬ 
ments  specified  varied  from  10  to  1  to  2  to  1.  At  the  10  to  1  end  of  the  spectrum 
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special  aircraft  support  systems  are  necessary  such  as  airsprings  (XB-70  support 
system),  bungee  or  mechanical  springs.  At  the  2  to  1  end  of  the  spectrum  a 
bottomed  landing  gear  oleo  and  soft  tires  are  satisfactory. 

It  was  difficult  to  always  obtain  a  frank  discussion  of  chronic  problem  areas. 
Many  of  the  difficulties  expressed  seemed  to  be  due  to  inadequate  preparation  or 
lack  of  skill.  As  a  result,  problems  were  quite  often  attributed  to  nonlinear¬ 
ities.  The  most  pressing  problem  is  that  the  test  airplane  is  available  for  the 
GVT  for  a  very  short  period  of  time.  One  of  the  essential  requirements  of  GVT 
procedure  in  the  United  States  is  speed.  A  second  problem  is  that  the  interface 
between  the  test  and  analysis  group  is  often  poor.  This  is  reflected  not  only  in 
test  planning,  but  in  the  post-test  feedback  of  data  into  the  analysis  group.  A 
third  problem  is  that  when  introducing  new  technology,  a  large  pool  of  acquired 
knowledge  concerning  the  old  techniques  is  obsoleted,  and  is  only  slowly  replaced 
by  the  familiarity  with  the  new  techniques. 

Nonlinearities  are  a  chronic  problem.  Known  nonlinearities,  e.g.,  control  sur¬ 
face  actuator  free  play,  are  routinely  shimmed  or  preloaded  out,  and  the  airplane 
is  tested  as  linear.  Often  a  separate  test  is  run  to  document  specific  non- 
linearities.  Unknown  nonlinearities  often  appear  during  a  test.  The  source  of  a 
strong  nonlinearity  must  be  determined  and  fixed  before  the  test  may  proceed. 

Although  a  pretest  analysis  is  widely  regarded  as  necessary,  it  usually  consists 
of  the  free-free  modes  and  frequencies  of  the  airplane  mathematical  model  used  in 
the  flutter  analysis.  On  rare  occasions  it  is  a  forced  response  calculation  pre¬ 
dicting  the  test  response  of  the  airplane  in  GVT  conf iguration,  including  special 
modifications  of  the  airplane  for  test  and  the  airplane  support  system.  The  data 
resulting  from  the  test  is  used  for  three  purposes: 
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1.  To  validate  the  mathematical  model 


2.  To  revise  a  mathematical  model 

3.  To  construct  a  structural  dynamic  analysis 

In  some  instances,  little  or  no  use  was  made  of  the  data. 

2. 3. 2. 2  Ground  Vibration  Testing  Methods 

To  compare  various  methods  applicable  to  experimental  modal  analysis,  a  categor¬ 
ization  will  be  used  to  identify  major  differences.  This  section  of  the  report 
will  describe  the  general  characteristics  of  each  method.  When  discussing 
criteria  for  method  selection  in  Section  2.4.1,  specific  techniques  and/or 
references  will  be  used  to  evaluate  each  method. 


Ground  vibration  testing  methods  are  divided  into  three  groups  for  this  evalua¬ 
tion.  The  first  grouping  includes  all  methods  pertinent  to  the  forced  response 
analysis  technique  documented  by  Lewis  and  Wrisley.  This  general  testing  proce¬ 
dure  will  be  described  as  a  Multiple  Point  Excitation--Sine  Dwell  (MPE-SD) 
approach.  The  second  category  that  has  found  widespread  application  cannot  be 
attributed  to  any  one  person  or  group.  It  involves  measuring  frequency  response 
functions  and  determining  modal  parameters  through  comparison  to  a  linear  mathe¬ 
matical  model.  This  general  testing  procedure  will  be  described  as  a  Single 
Point  Excitation--Prequency  Response  Analysis  (SPE-FRA)  approach.  The  final 
category  can  best  be  described  as  all  of  the  techniques  not  fitting  in  the  first 
two  general  concepts.  The  reasoning  behind  this  last  grouping  is  that  many  of 
these  techniques,  while  showing  great  promise,  do  not  have  adequate 
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documentation  of  pertinent  details  to  receive  serious  consideration  as  a  viable 
approach  at  this  time.  This  is  not  to  say  that  theoretical  development  is 
questioned  but  that  little  general  knowledge  of  the  practical  application  and 
results  is  available  at  this  time.  For  this  reason,  most  of  the  discussion  under 
Criteria  for  Method  Selection  is  limited  to  the  two  categories:  MPE-SD  and 
SPE-FRA. 


Multiple  Point  Exci tati on--Sine  Dwell  Method 

Modern  MPE-SD  techniques  are  based  upon  a  forced  response  analysis  approach  first 
implemented  by  Lewis  and  Wrisley  (112)  and  theoretically  developed  by  Fraejis  de 
Veubeke  (45).  The  basic  approach  is  to  apply  forces  to  a  structure  to  compensate 
for  energy  loss  through  damping.  If  the  forces  are  distributed  in  proportion  to 
the  damping  and  exactly  balance  the  damping  forces,  the  structure  vibrates  with 
the  same  motion  as  in  the  free  undamped  case. 

The  primary  consideration  of  any  MPE-SD  approach  is  force  appropriation.  This 
involves  three  distinct  problems.  First,  the  number  of  exciters  must  be  suffi¬ 
cient  to  address  the  effective  number  of  degrees  of  freedom.  Secondly,  the 
number  of  exciters  should  be  optimally  located  to  excite  a  given  mode.  Finally, 
the  vector  forcing  function  must  be  determined.  Although  all  three  problems  are 
difficult,  the  first  and  last  can  be  automated  with  some  success  using  various 
methods.  The  optimum  location  of  the  exciters  can  be  evaluated  by  way  of  finite 
element  pre-test  analysis  although  no  straight  forward  closed  loop  approach  has 
been  identified. 

The  use  of  digital  computers  has  been  of  great  value  in  the  MPE-SD  approach. 
Many  of  the  force  appropriation  processes  have  been  automated  by  the  use  of  a 
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computer  controlled  system.  Data  acquisition,  storage,  and  display  is  more 
easily  handled  in  a  computer  based  system.  Unfortunately,  there  is  no  uniform 
system  available  commercially  that  has  found  widespread  use  for  the  MPE-SD  tech¬ 
niques.  Much  of  the  existing  hardware  in  use  has  been  custom  built  and  ranges  up 
to  15  years  in  age. 

Most  MPE-SD  techniques  involve  many  similar  considerations.  All  have  elaborate 
excitation  control  systems  (often  up  to  16  shakers).  All  depend  upon  the  concept 
of  a  phase  resonance  criteria  for  identifying  the  mode.  Often  Lissajous  patterns 
are  used  to  confirm  this.  Free  decay  is  normally  used  to  calculate  damping 
factors  and  to  verify  the  purity  of  the  mode  excited.  Finally,  the  diagonal iza- 
tion  of  the  reduced  finite  element  mass  matrix  is  used  to  verify  the  orthogon¬ 
ality  of  the  measured  modes. 

Single  Point  Excitation--Frequency  Response  Analysis  Method 

Present  day  SPE-FRA  techniques  are  based  upon  system  identification  procedures 
related  to  a  causal  black-box  concept  of  structural  dynamics.  Frequency  response 
functions  are  analyzed  with  modal  parameter  estimation  algorithms  to  determine 
estimates  of  modal  parameters.  Such  a  process  was  utilized  nearly  20  years  ago 
with  equipment  known  as  Transfer  Function  Analyzers.  This  process  was  strictly  a 
swept  sinusoidal  excitation  with  tracking  filters  to  determine  the  output  versus 
input.  With  the  advent  of  fast  Fourier  analysis  equipment  nearly  10  years  ago, 
other  forms  of  excitation,  notably  broadband  frequency  signals,  allowed  complete 
frequency  response  functions  to  be  measured  in  reduced  time.  The  basic  approach 
presently  is  to  excite  a  structure  with  an  appropriately  chosen  force  signal  at 
one  location  at  a  time.  The  frequency  response  function  between  the  input  force 
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and  output  response  points  of  interest  are  measured  and  stored.  Averaging  of  a 
number  of  inputs  and  responses  is  common  practice  in  the  development  of  the 
frequency  response  function.  Modal  parameters  are  estimated  using  any  of  a 
number  of  single  degree  of  freedom  ( SDOF )  or  multiple  degree  of  freedom  (MDOF) 
algorithms.  Often  the  modal  parameter  estimation  routines  take  advantage  of 
redundancy  in  a  data  set  to  improve  the  accuracy  of  the  algorithm. 

The  primary  consideration  of  any  SPE-FRA  approach  is  to  obtain  the  best  possible 
measurement  data  in  the  form  of  a  frequency  response  function.  This  involves 
identification  of  measurement  errors,  proper  location(s)  of  the  single  excita¬ 
tion  to  assure  that  no  modes  are  missed,  and  determination  of  sufficient  fre¬ 
quency  resolution  to  identify  closely-spaced  modes.  The  use  of  the  coherence 
function  is  vital  in  evaluation  of  measurement  error  and  averaging  requirements. 

A  secondary  consideration  of  any  SPE-FRA  approach  is  to  utilize  proper  modal 
parameter  estimation  algorithms.  SDOF  algorithms  are  often  unacceptable  if  the 
modes  are  closely  spaced  in  frequency.  MDOF  algorithms  often  use  weighting 
schemes  which  provide  varying  results  with  the  amount  of  damping  present.  The 
current  trend  is  toward  a  flexible  system  with  a  number  of  SDOF  and  MDOF  algori¬ 
thms  available. 

Most  SPE-FRA  systems  are  very  similar.  The  hardware  is  produced  by  a  limited 
number  of  manufacturers  and  is  made  up  of  nearly  identical  components.  Certainly 
the  basic  measurement  capabilities  are  equal.  Software  to  analyze  the  data  is 
often  available  from  the  manufacturers  but  no  new  software  systems  have  been 
available  from  this  source  for  three  to  four  years.  Often,  the  individual  users 
program  particular  algorithms  for  use  on  typical  structures  of  a  given  industry 


16 


and  much  of  this  software  is  available  from  consulting  firms,  universities,  and 
others.  Since  all  systems  are  computer  based,  matrix  operations  such  as  ortho¬ 
gonality  checks  or  modal  vector  manipulations  are  usually  trivial  computations 
to  implement. 

Other  Methods 

Two  or  three  approaches  are  under  development  which  show  some  degree  of  promise 
but  for  which  there  is  little  comprehensive  documentation  at  present.  A  tech¬ 
nique  involving  broadband  multiple  point  excitation  with  frequency  response 
analysis  is  under  investigation  at  the  University  of  Cincinnati.  This  concept 
would  be  very  similar  to  a  SPE-FRA  approach  but  without  the  problems  of  energy 
distribution  or  multiple  configurations  to  assure  no  modes  are  missed.  A  tech¬ 
nique  based  upon  free  decay  and  global  eigenvalue/eigenvector  concepts  is  under 
investigation  by  Ibrahim  (87,  88,  89).  This  system  eliminates  exciter  problems 
and  completely  automates  the  data  reduction  p  cess.  Another  new  technique  under 
evaluation  by  Link  and  Vollan  (113)  involves  direct  estimation  of  reduced  mass, 
stiffness,  and  damping  matrices.  This  obviously  would  be  of  great  value  in  the 
interaction  with  finite  element  models. 

For  some  further  details  in  these  areas,  the  background  literature  can  provide 
additional  information.  Little  further  discussion  will  be  made  regarding  these 
methods  due  to  the  lack  of  proven  capability.  It  is  of  some  interest  to  note, 
though,  that  the  hardware  and  general  development  of  the  SPE-FRA  approach  could 
easily  encompass  many  aspects  of  these  other  techniques  should  any  one  of  them 
prove  to  be  superior  in  the  future. 
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2. 3. 2. 3  Specific  Techniques  Used  in  Ground  Vibration  Testing 


The  state  of  the  art  of  each  of  the  principal  facets  of  experimental  model 
analysis  is  described  in  this  section.  The  various  methods  of  experimental  modal 
analysis  use  different  combinations  of  these  components.  These  modal  analysis 
methods  are  discussed  in  Section  3.1.2. 

Excitation  Configuration 

Excitation  conf iguration  refers  to  the  number  of  simultaneous  forces  used  to 
excite  the  structure.  Typically,  the  designation  Single  Input  (SI)  or  multiple 
input  (MI)  is  a  sufficient  description  of  the  situations  used  for  the  Multipoint 
Excitation  Sine  Dwell  (MPE-SD)  or  Single  Point  Excitation  Frequency  Response 
Analysis  (SPE-FRA)  techniques.  With  respect  to  the  two  general  cases  (SI  and 
MI),  SI  is  simple  in  terms  of  set-up  time  and  cost  of  equipment.  The  inability  to 
distribute  energy  throughout  the  structure  can  cause  problems  because  not  all 
modes  can  be  excited  from  one  point.  Because  of  this,  for  most  airplanes  the  SI 
test  must  be  repeated  with  the  excitation  at  several  different  locations. 

Narrowband  (sinusoidal)  and  broadband  frequency  excitation  with  SI  can  effi¬ 
ciently  utilize  the  fast  Fourier  transform  to  develop  frequency  response 
information. 

MI  requires  duplication  of  exciter  systems  which  increases  both  the  set-up  time 
and  costs.  Additionally,  the  only  practical  technique  using  MI  is  a  sinusoidal, 
forced  response  analysis  approach.  This  requires  additional  control  equipment 
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to  achieve  force  appropriation  for  a  particular  eigenvector.  If  this  tuning 
process  is  automated  (Asher  (6,  7)  Feix  (57),  Hallauer  (70),  Morosow  (126,  127), 
Su  (199),  Trail 1-Nash  (206)),  more  sophisticated  control  equipment  is  required. 
No  current  techniques  use  broadband  frequency  excitation  with  MI.  Problems  with 
estimating  the  number  of  exciters  to  use  (based  upon  effective  degrees  of  free¬ 
dom)  and  with  determining  exciter  location  are  difficult.  The  analysis  of 
eigenvalue  and  eigenvector  is  very  simple  when  tuning  is  successful. 

Response  Measurement  Conf iguration 

Response  measurement  configuration  refers  to  the  transducers  used  to  record  the 
structural  motion.  The  designations  of  roving  set  or  fixed  set  describe  the 
configurations  commonly  used.  For  the  case  of  a  roving  set  of  transducers, 
equipment  is  kept  to  a  minimum  but  time  can  be  a  problem  if  multiple  sets  of  data 
must  be  taken.  Therefore,  this  approach  is  generally  unattractive  with  the  MI 
technique  or  with  SI  techniques  when  multiple  configurations  of  the  test  struc¬ 
ture  are  required.  Calibration  and  set-up  are  minimized  with  a  roving  set  of 
transducers  and  the  quality  of  data  should  be  equal  to  the  fixed  set  of  trans¬ 
ducers  at  frequencies  below  500  Hertz.  As  higher  frequencies  are  required,  the 
roving  set  of  transducers  must  be  rigidly  attached  to  the  structure.  This  is 
normally  too  time  consuming  to  use. 

More  equipment  is  generally  required  using  fixed  transducers  than  roving.  Addi¬ 
tional  time  is  spent  in  pre-test  calibration  and  set-up.  However,  the  total 
occupancy  time  on  the  test  airplane  can  be  reduced  by  using  more  channels  of  data 
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acquisition.  The  amount  depends  upon  the  number  of  points  and  test  configura¬ 
tions.  In  the  case  of  impact  testing,  one  fixed  transducer  may  be  used  while  the 
location  of  the  impact  excitation  is  moved.  Both  multipoint  excitation  and 
single  point  excitation  concept  can  utilize  either  a  roving  or  fixed  set  of 
transducers. 

Excitation  Signal  Format 

Excitation  signal  format  refers  to  the  frequency  content  of  the  force  input(s). 
The  designation  of  sinusoidal  is  used  to  describe  signals  of  only  one  frequency, 
while  broadband  encompasses  fast  sinusoidal  sweeps,  transients,  and  all  forms  of 
random  signals.  Sinusoidal  signals  have  the  advantage  of  minimum  information 
and,  thus,  an  easily  recognizable  form.  This  permits  time  domain  analysis  in 
terms  of  magnitude  and  phase  and  is  psychologically  reassuring  during  the  test 
phase.  Both  MPE-SD  and  SPE-FRA  can  use  sinusoidal  excitation  although  implemen¬ 
tation  is  somewhat  different.  Normally,  with  sinusoidal  excitation,  the  input- 
output  relationship  is  calculated  one  frequency  at  a  time  and  modal  interaction, 
particularly  in  the  MPO-SD,  is  desired  to  be  minimal.  This  is  sometimes  not 
possible  to  achieve. 

Broadband  excitation  has  the  advantage  of  increased  frequency  content  and, 
therefore,  maximum  information.  The  analysis  of  such  data  requires  digital 
signal  processing  techniques  such  as  fast  Fourier  transforms,  digital  filtering, 
and  averaging  to  obtain  frequency  response  information.  Thorough  understanding 
of  the  mathematics  and  peculiar  physical  phenomena  (aliasing,  leakage,  etc.)  of 
digital  signal  processing  are  required.  Modal  interaction  is  not  suppressed  by 
the  excitation. 
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Confidence  Factors 


There  are  several  confidence  factors  applicable  to  measurement.,  The  first  is 
repeatabi 1 ity.  This  involves  duplicate  measurements  using  the  same  procedures 
or  measurements  taken  via  different  procedures.  A  second  measure  is  to  compute 
the  coherence  function.  Holes  in  the  coherence  function  immediately  flag  defi¬ 
ciencies  in  the  measurement,  local  modes,  or  extraneous  inputs  to  the  system 
such  as  noise  or  non-linearities.  The  third  measure  is  decay  trace  frequency  and 
amplitude  stability  and  logarithmic  amplitude  linearity.  Deviations  will  indi¬ 
cate  inadequate  tuning,  poor  signal-to-noise  ratios,  nonlinearity  and  other 
problems . 

Data  Acquisition 

The  measurement  process  may  involve  testing  many  configuration  variations.  In  a 
sinusoidal  technique,  data  acquisition  requirements  dictate  single  word  storage 
for  the  input  and  output  measurements  at  each  identified  frequency.  In  wideband 
techniques,  much  more  computer  memory  is  required  since  many  frequencies  are 
processed  simultaneously.  Both  situations  can  achieve  an  improvement  in  accu¬ 
racy  through  averaging. 

Filtering  equipment  is  normally  involved  in  most  techniques  whether  for  purposes 
of  elimination  of  aliasing,  narrow-band  tracking,  or  reduction  of  noise.  Care 
must  be  taken  in  applying  filtering  techniques  to  avoid  any  compromise  or  degra¬ 
dation  of  the  data  due  to  the  unique  problems  associated  with  filters,  e.g., 
rolloff,  truncation. 
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Transducer  sensitivity  and  amplifier  characteristics  need  to  match  the  other 
test  equipment  so  that  maximum  accuracy  can  be  maintained. 

Sufficient  time  must  be  spent  during  the  measurement  phase  to  ascertain  both  the 
validity  and  quality  of  the  data.  This  involves  averaging  where  necessary  as 
well  as  the  use  of  coherence  function.  Even  small  errors  or  compensations  made 
during  this  phase  increase  the  potential  difficulty  in  estimating  the  modal 
parameters. 

Interpretation  of  Measurement 

The  current  techniques  of  modal  parameter  estimation  may  be  categorized  as  modal 
parameter  estimation  via  direct  measurement  and  modal  parameter  estimation  via 
frequency  response  analysis.  In  the  direct  measurement  technique  the  test  appa¬ 
ratus  is  adjusted  so  that,  in  the  judgement  of  the  operator,  the  test  item  is 
vibrating  in  a  normal  mode.  The  frequency  of  vibration  is  recorded  as  the 
natural  frequency  and  the  displacement  amplitudes  are  recorded  as  modeshapes.  In 
the  frequency  response  analysis  technique,  frequency  response  functions  are 
developed  from  the  measurement.  A  frequency  response  function  can  be  developed 
by  a  slow  sine  sweep  at  constant  input  force  amplitude,  in  which  case  the 
frequency  response  function  is  the  displacement  as  a  function  of  frequency.  More 
commonly  the  frequency  response  function  is  developed  by  Fourier  transforming 
time  histories  of  the  input  force  and  the  resulting  displacement.  Note  that  a 
frequency  response  function  refers  to  the  response  of  the  structure  at  one  point 
to  excitation  at  another,  and  that  a  set  of  frequency  response  functions  is 
necessary  to  describe  the  dynamic  characteristics  of  the  entire  test  item. 
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In  addition  to  modal  parameter  estimation  by  direct  measurement  and  by  frequency 
response  function  analysis,  there  are  several  hybrid  techniques  that  combine 
features  of  both  approaches. 

Characteristics  of  Modal  Parameter  Estimation 

Single  Degree  of  Freedom  -  Modal  parameter  estimation  techniques  which  involve 
only  one  eigenvalue  and  eigenvector  at  a  time  are  classed  as  single  degree  of 
freedom  (SDOF)  techniques.  The  oldest  method  is  attributed  to  Kennedy  and  Pancu 
(96)  and  is  often  referred  to  as  the  "circle-fit"  method.  Using  the  amplitude 
and  phase  at  the  damped  natural  frequency  or  the  quadrature  part  of  the  frequency 
response  at  the  damped  natural  frequency  are  common  techniques  (Broadbent  (23), 
Brown,  (222),  Klosterman(99) ) .  More  sophistication  is  gained  by  using  a  single 
partial  fraction  expansion,  in  the  area  of  the  damped  natural  frequency,  based 
upon  the  Laplace  domain  formulation  for  a  SDOF  with  damping  (Stahle  (194,  195), 
Richardson  (169,  170),  Sloane  (187)). 

SDOF  techniques  are  simple  to  implement  and  analysis  time  is  kept  to  a  minimum. 
The  amplitude  and  quadrature  techniques  are  essentially  those  used  in  MPE-SD 
techniques.  Little  operator  skill  or  interaction  is  required,  however,  closely 
spaced  eigenvectors  and  coupled  eigenvectors  can  be  very  difficult  to  separate 
with  SDOF  techniques. 

Multiple  Degree  of  Freedom  -  Multiple  degree  of  freedom  (MDOF)  techniques  are 
more  complicated  in  terms  of  time  operator  skill,  and  operator  interaction.  Such 
techniques  are  usually  based  upon  non-linear  solution  procedures  of  a  partial 
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fraction  expansion  of  the  Laplace  domain  formulation  of  the  mathematical  model. 
Often  matrix  procedures  are  used  to  take  advantage  of  special  forms  of  the  data. 
These  processes  can  be  very  slow  since  one  frequency  response  function  is 
analyzed  at  a  time.  In  addition,  the  current  techniques  do  not  take  advantage  of 
redundant  information  (global  eigenvalues  or  eigenvectors).  This  is  the  subject 
of  much  current  research  and  considerable  improvement  may  be  anticipated  in  the 
future. 

The  operator  skill  is  imperative  in  current  MDOF  techniques.  The  evaluation  of 
"goodness  of  fit"  is  not  always  obvious  nor  is  the  specific  choice  of  the  number 
of  degrees  of  freedom.  These  two  considerations  alone  can  mean  the  difference 
between  satisfactory  and  meaningless  results.  Additionally,  the  time  required 
by  the  operator  to  manually  manipulate  these  factors  causes  the  total  time  for 
analysis  to  increase.  Therefore,  those  MDOF  techniques  which  can  give  better 
results  through  automatic  procedures  are  very  attractive. 

Complex  Eigenvectors  -  Complex  eigenvectors  is  the  general  characteristic  found 
in  real  structures,  with  real  eigenvectors  being  a  special  case  which  occurs  with 
proportional  damping.  The  MPE-SD  techniques  do  not  permit  the  formulation  of 
complex  eigenvectors  and,  thus,  the  results  are  always  real  eigenvectors.  The 
SPE-FRA  techniques  allow  complex  or  real  eigenvectors  depending  upon  the  mathe¬ 
matical  model  chosen.  Currently,  the  mathematical  model  methods  commonly  used  to 
approximate  the  test  configuration,  due  to  time  constraint,  cost  and  experience, 
are  real  eigenvector  solutions.  In  the  aerospace  industry,  the  structures  are 
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often  satisfactorily  evaluated  based  upon  real  eigenvectors  alone.  When  prob¬ 
lems  are  encountered  in  force  appropriation  with  MPE-SD  techniques,  the  compli¬ 
cation  is  attributed  to  poor  exciter  locations,  insufficient  number  of  exciters, 
or  inadequate  iteration  in  the  tuning.  The  existence  of  complex  eigenvectors  may 
often  be  an  additional  significant  source  of  difficulty. 

Residuals  -  Both  SOOF  and  MDOF  techniques  may  or  may  not  involve  the  use  of 
residuals.  Residuals  are  variables  which  are  used  to  approximate  the  effects  of 
eigenvectors  below  and  above  the  frequency  range  of  the  modal  parameter  estima¬ 
tion  technique.  The  constant  associated  with  the  lower  eigenvectors  is  often 
referred  to  as  inertia  restraint  and  the  constant  associated  with  the  higher 
eigenvalues  is  called  residual  flexibility.  Some  techniques  do  not  allow  the  use 
of  residuals  (for  example  quadrature)  but  most  of  the  sophisticated  SDOF  and  MDOF 
techniques  permit  them.  Residuals  are  necessary  in  the  separation  of  modal 
interaction  to  accurately  credit  the  proper  influence  to  each  mode. 

Global  Eigenvalue  -  Global  eigenvalue  refers  to  the  concept  that  the  eigenvalues 
are  constants  with  respect  to  the  test  structure.  If  this  contraint  is  imposed 
in  the  MDOF  estimation  techniques,  the  solution  process  can  now  be  linearized. 
This  has  the  benefit  of  reduced  operator  interaction,  simplification  of 
analysis,  and  overall  improvement  of  eigenvalue  estimate.  Obviously,  a  side 
benefit  is  a  great  reduction  in  analysis  time  (Brown  (222),  Ibrahim  (87,  88)). 
Some  difficulty  can  be  encountered  if  measurement  errors  or  non-linearities  are 
present,  since  the  eigenvalues  will  then  appear  to  change  between  measurements. 
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Global  Eigenvector  -  Global  eigenvector  refers  to  the  concept  that  the  major 
structural  modes  of  vibration  should  be  observed  to  be  unchanged  regardless  of 
where  the  test  excitation  is  applied  to  the  structure.  Therefore,  if  multiple 
applications  of  a  single  point  excitation  can  be  separately  analyzed  and  combined 
or  collectively  analyzed,  the  result  should  be  a  single  eigenvector  for  each 
eigenvalue.  Manipulation  of  estimates  of  eigenvectors  from  different  test 
points  can  give  improved  definition  of  a  global  eigenvector  as  well  as  statisti¬ 
cal  input  as  to  the  variance  in  the  measurements.  Work  relating  to  this  concept 
has  been  formulated  by  Ibrahim  {87,  88)  and  Richardson  (172). 

Local  Eigenvectors  -  In  addition  to  global  eigenvectors,  the  ability  to  allow 
local  eigenvalues  and  eigenvectors  is  very  important.  Measurements  in  a  certain 
area  of  the  test  structure  may  contain  modal  parameters  which  are  not  found  over 
the  rest  of  the  structure.  If  the  modal  parameter  estimation  techniques  cannot 
permit  additional  degrees  of  freedom  when  this  situation  exists,  the  estimated 
values  for  the  global  eigenvectors  will  be  very  poor. 

The  capability  to  handle  local  modal  parameters  as  well  as  global  modal  parame¬ 
ters  requires  increased  refinement  in  the  software.  This  will  permit  more 
automation  and  less  operator  interaction.  Current  applications  of  such  tech¬ 
niques  have  been  very  time  consuming  because  they  are  based  upon  non-linear 
solution  methods.  The  application  of  linearizing  techniques  to  the  solution  as 
well  as  increased  automation  may  provide  a  great  reduction  in  analysis  time. 

Confidence  Factors  -  The  confidence  factors  for  use  in  modal  parameter  estima¬ 
tion  are  less  well  developed  than  those  for  use  in  measurement.  They  detect  poor 
quality  but  do  not  ensure  high  quality. 
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A  first  check  is  to  compute  the  generalized  mass  matrix  from  the  estimated  mode 
shape  and  a  "given"  point  mass  model  of  the  test  item.  A  general  rule  of  thumb 
requires  the  off  diagonal  terms  be  no  more  than  10  percent  of  the  diagonal  for  an 
acceptable  mode.  A  second  check  is  to  compare  modal  parameters  predicted  in  a 
pretest  analysis  to  those  estimated  from  test.  Since  error  metrics  have  not  been 
developed  for  use  in  this  area,  the  basis  for  comparison  is  intuitive.  A  third 
commonly  used  check  is  to  predict  the  system  response  using  the  estimated 
parameters.  This  is  done  most  effectively  in  the  time  domain  by  predicting  the 
system  response  to  a  known  arbitrary  forcing  function  and  comparing  the  measured 
response  to  this  forcing  function.  One  may  also  predict  frequency  domain 
response,  although  this  is  less  useful. 

2.4  SELECTION  OF  RECOMMENDED  GVT  METHOD 

2.4.1  Criteria  For  Method  Selection 

This  section  contains  the  key  points  in  the  evaluation  process.  The  criteria  for 
evaluation  were  developed  from  the  contract  Statement  of  Work,  industry  inter¬ 
views,  and  personal  experience.  The  weighting  of  the  criteria  is  based  upon 
identifying  the  optimum  GVT  technique  within  the  restriction  of  wel 1 -documented, 
state  of  the  art  practice.  Those  criteria  which  rate  purely  mechanical  consider¬ 
ations  and  apply  to  most  or  all  techniques  equally  have  been  given  very  little 
weight.  The  evaluation  of  the  general  methods  with  respect  to  the  criteria  is 
based  upon  a  review  involving  literature,  industry  interviews,  and  personal 
experience.  This  evaluation  did  not  seriously  consider  many  pieces  of  literature 
which  lacked  a  sufficient  documentation  of  detail,  a  sufficient  demonstration  of 
proficiency,  and/or  an  adequate  evaluation  of  real  world  examples. 
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2. 4. 1.1  Primary  Considerations 


The  following  criteria  are  basic  concerns  in  the  evaluation  of  any  GVT  approach. 
The  subtopics  are  in  order  of  decreasing  importance  in  method  selection. 

Quality  of  Results 

The  MPE-SO  approach  and  the  SPE-FRA  approach  appear  to  be  nearly  equal  in  the 
ability  to  obtain  modal  parameters  for  a  given  structure.  Of  the  other  tech¬ 
niques,  insufficient  documentation  is  presently  available,  although  the  Link  and 
Vollan  (113)  and  Ibrahim  (88)  approaches  show  future  potential.  For  aircraft 
structures,  the  MPE-SD  approach  may  be  slightly  superior  but  the  continuing 
availability  of  improved  modal  parameter  estimation  algorithms  for  the  SPE-FRA 
method  indicates  that  any  small  advantage  is  temporary. 

Time  Constraint 

The  amount  of  time  needed  to  complete  a  GVT  is  in  direct  conflict  with  the  need 
for  quality  of  modal  parameter  estimates.  Any  reduction  in  available  test  time 
due  to  impending  flight  schedules  or  previous  delays  contributes  directly  to  the 
degradation  of  the  final  result.  None  the  less,  the  high  cost  of  hardware,  test 
fixturing,  and  personnel  dictates  that  total  test  time  be  kept  to  a  minimum. 

The  MPE-SD  approach  appears  to  give  superior  results  for  a  reduced  number  of 
modes  if  the  time  constraint  is  severe.  Since  each  mode  is  tuned  independently, 
not  all  modes  will  be  documented  and  potentially  important  modes  will  be  missed. 
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This  is  a  direct  result  of  the  variability  of  the  amount  of  time  needed  to  tune  a 
given  mode.  The  requirement  of  individual  tuning  of  modes  does  not  permit  any 
separation  of  tasks  (which  would  permit  some  of  the  analysis  to  be  performed  at  a 
later  time) . 

When  the  time  constraint  is  severe,  the  SPE-FRA  approach  will  yield  some  data  on 
all  or  nearly  all  modes  of  interest.  Also,  based  upon  an  exact  time  constraint, 
a  reliable  estimate  of  the  maximum  amount  of  data  to  be  acquired  can  be  made. 
This  assures,  assuming  confidence  factors  are  utilized,  that  some  information 
about  all  modes  can  be  obtained.  This  ability  to  spend  the  total  test  time 
window  in  the  measurement  process,  if  needed,  while  deferring  the  time  consuming 
analysis  phase  represents  a  unique  and  powerful  attribute  of  the  SPE-FRA 
approach. 

When  time  constraints  are  completely  removed,  both  approaches  yield  similar 
results.  There  is  a  tendency  for  the  MPE-SD  technique  to  obtain  fewer  modes  even 
though  the  global  modes  are  found.  An  example  of  this  can  be  seen  in  a  recent 
paper  by  Hanks,  et  all.,  (75). 


Operator  Expertise 

Both  the  MPE-SD  and  SPE-FRA  approaches,  with  respect  to  the  present  state  of  the 
art,  require  a  very  high  level  of  operator  expertise.  Through  industry  inter¬ 


views  and  literature  discussions,  it  is  obvious  that  this  requirement  is  often 
overlooked.  The  aircraft  design  that  requires  experienced  finite  element  engi¬ 
neers  for  the  analytical  solution  often  is  left  to  completely  inexperienced 


technicians  and  engineers  for  the  experimental  solution.  This  is  a  management 
problem  that  needs  to  be  corrected. 

The  MPE-SD  approach  is  at  a  slight  disadvantage  since  the  operator  expertise  is 
involved  in  tuning  each  mode.  The  primary  involvement  of  operator  expertise  in 
the  SPE-FRA  approach  is  in  the  modal  parameter  estimation  phase.  In  both 
approaches  a  knowledgeable  test  engineer  is  required  to  continuously  evaluate 
the  measurement  process. 

A  very  popular  misconception  of  the  SPE-FRA  approach  relates  to  the  concept  of 
operator  expertise.  An  expert  operator  who  is  estimating  modal  parameters  using 
various  SDOF  and  MD OF  algorithms  cannot  compensate  for  poor  data  (noise,  alias¬ 
ing,  leakage,  distortion,  frequency  resolution,  etc.).  These  software  routines 
cannot  efficiently  extract  reasonable  modal  parameter  estimates  if  the  data  was 
taken  carelessly.  This  accounts  for  far  more  of  the  failures  of  the  SPE-FRA 
approach  than  is  generally  recognized. 

Within  the  limitations  summarized,  both  the  MPE-SD  and  the  SPE-FRA  approaches 
involve  a  similar  degree  of  operator  expertise  and  experience.  Again,  with 
future  developments,  the  availability  of  better,  faster,  and  more  automatic 
modal  parameter  estimation  algorithms  will  give  the  SPE-FRA  approach  an 
advantage. 
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Closely  Spaced  Modes 


Closely  spaced  modes  create  equal  problems  in  all  techniques.  The  MPE-SD 
approach  requires  more  tuning  in  force  appropriation.  The  SPE-FRA  approach 
requires  more  interaction  in  the  modal  parameter  estimation  process.  These 
factors  in  terms  of  difficulty  are  judged  to  be  essentially  equal.  The  more 
significant  result  of  closely  spaced  modes  is  an  increase  in  time  to  achieve 
equivalent  estimates  of  modal  parameters. 

Increased  Accuracy 

Since  both  the  MPE-SD  and  SPE-FRA  approaches  currently  result  in  similar  quality 
of  results,  the  question  of  increased  accuracy  is  dependent  upon  identif ication 
and  solution  of  the  problem  areas  within  each  technique.  To  improve  the  MPE-SD 
technique,  the  number  of  forces,  the  force  location,  and  the  force  appropriation 
must  each  be  automated.  Limited  success  has  been  achieved  in  determining  the 
number  of  forces  and  the  force  appropriation  with  automated  procedures.  No 
documented  effort  has  been  made  to  determine  optimum  force  location.  An  unfortu¬ 
nate  problem  with  the  development  of  the  MPE-SD  approach  is  that  only  those 
individuals  interested  in  improving  GVT  techniques  are  contributing  to  the 
improved  procedures;  there  is  no  cross-furti lization  of  MPE-SD  improvements  from 
other  areas  of  technology.  To  improve  the  SPE-FRA  technique,  measurement  tech¬ 
nique  and  modal  parameter  estimation  algorithms  must  be  improved.  Great  success 
in  both  areas  has  taken  place  over  the  last  ten  years  and  is  continuing.  The 
distinct  advantage  in  the  development  of  the  SPE-FRA  approach  is  that  these  areas 
are  of  great  interest  to  researchers  in  other  areas  such  as  controls  and 
electronics.  A  reasonable  amount  of  technology  transfer  can  be  expected. 
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Many  of  the  theoretical  studies  performed  to  analyze  the  accuracy  of  either 
method  have  proven  to  be  less  useful  than  anticipated.  Most  examples  have 
utilized  an  MDOF  model  with  random  noise  to  use  in  a  comparative  study.  In  the 
real  test  environment,  the  noise  due  to  extraneous  inputs  and  measurement  error 
is  rarely  white  random  and  almost  always  biased.  Studies  based  upon  white  random 
noise  are  not  necessarily  appropriate  measures  of  the  ability  to  accurately 
estimate  modal  parameters. 

Complex  Modal  Coefficients 

The  question  of  real  versus  complex  modes  must  be  considered  in  terms  of  the 
quality  of  the  experimental  modal  analysis  approach.  The  MPE-SD  approach  does 
not  lend  itself  to  the  concept  of  complex  modes .  All  other  approaches,  including 
SPE-FRA,  can  utilize  real  and  complex  mode  concepts. 

There  is  no  doubt  that  much  GVT  work  can  be  satisfactorily  accomplished  without 
the  complex  mode  concept.  The  real  world  though  does  have  complex  modes  and  in 
order  to  accurately  describe  the  phenomena  measured,  this  capability  is  required 
both  analytically  and  experimentally.  Some  flexibility  in  the  definition  of 
phase  resonance  and  in  the  definition  of  orthogonality  of  modes  is  often  taken 
with  the  MPE-SD  approach.  This  flexibility  may  be  necessary  to  compensate  for 
the  inability  of  the  MPE-SD  approach  to  deal  with  slightly  complex  modes.  The 
MPE-SD  approach  does  not  contain  the  flexibility  to  document  this  realistic 
possibil ity. 
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Complicating  Factors 


Most  complicating  factors  in  the  GVT  process  are  related  to  some  nonlinear 
characteristic  in  the  test  item.  Neither  MPE-SD  nor  SPE-FRA  approaches  are 
ideally  designed  to  address  this  kind  of  difficulty.  Both  approaches  can  handle 
such  a  complicating  factor  as  a  nonlinearity  with  equal  effort  and  success.  If 
the  mathematical  form  of  the  nonlinearity  is  known  a  priori,  the  SPE-FRA  would 
have  a  distinct  advantage. 

Confidence  Factors 

Recognition  of  good  or  poor  estimates  of  modal  parameters  during  the  test  window 
is  vital  to  the  resulting  quality  of  the  GVT.  The  two  basic  approaches  each 
contain  methods  for  on-line  determination  of  confidence  prior  to  completion  of 
the  total  test  protocol.  Using  the  MPE-SD  approach,  the  ability  to  approach  the 
phase  resonance  criterion  at  all  shakers  for  a  given  mode  can  be  very  useful. 
Unfortunately,  if  too  few  inputs  are  utilized  this  result  may  be  misleading.  The 
decay  of  the  mode  of  vibration  when  the  inputs  are  removed  is  another  potential 
measure  of  the  purity  of  the  single  mode  excited  by  the  MPE-SD  approach.  This  is 
very  useful  in  concept,  but  when  a  small  amount  of  distortion  is  present,  the 
question  of  'how  much  is  too  much'  is  not  always  easy  to  answer.  Additionally, 
the  MPE-SD  approach  can  involve  mode  orthogonal ization  as  a  measure  of  confidence 
after  each  mode  has  been  tuned. 

The  SPE-FRA  approaches  have  useful  confidence  factors  as  well.  The  coherence 
function  calculation  associated  with  each  frequency  response  function  gives  a 


33 


/ 


I 


good  indication  of  the  amounts  of  noise,  sensitivity  problems,  and  measurement 
error  such  as  leakage.  Unfortunately,  since  this  function  is  a  frequency 
dependent  quantity  between  zero  and  one,  the  question  of  'how  bad  is  too  bad' 
must  be  answered.  Additionally,  any  lack  of  experience  and  knowledge  in  using 
the  coherence  function  in  this  manner  provides  some  difficulty.  The  ability  to 
estimate  modal  parameters  quickly  using  SDOF  techniques  allows  partial  mode 
shapes  to  be  processed  during  the  test  to  check  consistency  of  data  or  problems 
with  closely  spaced  or  coupled  modes.  The  use  of  many  separate  input  locations 
and  increased  frequency  resolution  during  an  initial ization  stage  also  results 
in  on-line  alteration  of  test  protocol  to  assure  that  no  modal  information  is 
missed.  Other  techniques,  such  as  mode  orthogonal ization,  can  be  involved  in  the 
on-line  confidence  factor  process  but  realistically  lend  themselves  to  post¬ 
processing  confidence  considerations. 

In  summary,  both  the  MPE-SD  and  the  SPE-FRA  approaches  have  adequate  confidence 
factors  available.  The  confidence  factors  available  presently  are  of  approxi¬ 
mately  equal  merit  but  the  SPE-FRA  approaches  require  proper  background  educa¬ 
tion.  The  ability  to  involve  averaging  in  the  measurement  and  analysis  phases  of 
the  SPE-FRA  approach  allow  for  application  of  statistics  in  the  confidence 
building  process. 
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2. 4. 1.2  Secondary  Considerations 


Some  of  the  criteria  involved  in  method  selection  need  to  be  considered  but  are 
not  primary  considerations.  Four  subtopics  have  been  identified  within  this 
weighting  category.  The  first  two  subtopics  are  important  but  should  be  sacri¬ 
ficed  to  maintain  the  integrity  of  the  primary  considerations.  The  final  two 
subtopics  are  also  important  but  apply  somewhat  equally  to  the  MPE-SD  and  SPE-FRA 
approaches.  Once  again  each  succeeding  subtopic  is  in  order  of  decreasing 
importance  in  method  selection. 

Cost  Reduction 

The  total  cost  of  a  GVT  is  an  important  concern.  With  both  the  MPE-SD  and  the 
SPE-FRA  approaches,  the  test  hardware  represents  a  trivial  cost  compared  to  the 
total  test  cost.  It  is  remarkable,  though,  that  despite  this  fact,  there  is  some 
reluctance  to  provide  more  hardware  to  facilitate  parallel  processing  and  com¬ 
puter  controlled  data  handling.  The  significant  cost  is  normally  the  involvement 
of  the  test  airplane,  fixturing,  and  personnel  during  the  total  test  time  window. 
The  ability  to  process  more  data  faster  significantly  reduces  total  test  cost  for 
very  little  expenditure.  Therefore,  the  time  constraint  directly  determines  the 
cost  factor.  Both  the  MPE-SD  and  the  SPE-FRA  approaches  can  be  optimized  in 
terms  of  parallel  data  processing  and  handling  in  similar  ways. 

One  significant  advantage  of  the  SPE-FRA  approach  with  respect  to  cost  reduction 
is  the  ability  to  defer  some  or  all  of  the  analysis  to  a  later  time.  In  this  way 
the  test  configuration  need  only  be  maintained  during  the  measurement  phase. 
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Only  the  equipment  and  personnel  involved  in  the  estimation  of  modal  parameters 
need  to  be  budgeted  for  the  total  time  period. 

Personnel  Reduction 

At  the  present  state  of  the  art,  neither  the  MPE-SD  approach  nor  the  SPE-FRA 
approach  can  account  for  significant  personnel  reduction.  Both  testing  concepts 
can  be  run  with  minimum  personnel  involvement  if  time  is  not  critical.  Likewise, 
both  testing  concepts  benefit  during  test  set-up  and  data  measurement  by  parallel 
tasking  of  technician  level  support.  Since  exciter  and  transducer  set-up  is 
labor  intensive,  the  SPE-FRA  approach  maintains  a  small  advantage  due  to  a 
reduction  in  the  number  of  exciters  utilized. 

Application  to  Sub-Assemblies 

Any  experimental  modal  analysis  technique  used  for  GVT  purposes  is  capable  of 
testing  subassemblies  of  the  complete  aircraft  structure.  Typical  examples  of 
such  components  would  be  the  landing  gear,  nacelle  mounted  engines,  control 
surfaces,  stores  or  a  scaled  flutter  model.  The  MPE-SD  and  SPE-FRA  approaches 
can  both  be  used  for  such  purposes.  Since  the  SPE-FRA  only  requires  a  single 
excitation  and  can  be  used  with  techniques  such  as  impact  testing,  the  flexibil¬ 
ity  of  this  technique  is  a  distinct  advantage  when  cost,  time,  personnel  and/or 
test  fixturing  problems  would  mitigate  against  the  use  of  the  MPE-SD  approach. 
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Post-Test  Analysis 


The  ability  of  a  GVT  method  to  provide  input  to  computational  schemes  for  compar¬ 
ing  and  checking  experimental  results  with  analytical  prediction  is  another 
valuable  criterion.  The  calculation  of  generalized  mass  or  the  use  of  a  reduced 
finite  element  mass  matrix  to  check  mode  orthogonality  are  common  examples  of 
this  need.  Since  the  MPE-SO  and  the  SPE-FRA  approaches  both  normally  involve  a 
direct  interface  to  at  least  a  mini-computer,  such  calculations  can  be  attempted 
with  either  approach  quite  easily.  The  frequency  response  functions  utilized  in 
the  SPE-FRA  approach  result  in  a  larger  available  data  base.  The  concepts  of 
modal  synthesis,  time  domain  simulation,  frequency  response  and  loads  prediction 
are  all  currently  under  development  and  may  require  a  large  data  base  to  obtain 
accurate  results.  As  these  methods  are  developed  to  the  point  of  routine  appli¬ 
cation,  the  SPE-FRA  approach  appears  to  be  more  capable  of  providing  the  data 
base  that  will  be  required. 

2. 4. 1.3  Minor  Considerations 

The  remaining  criteria  to  be  considered  are  of  equal  merit  in  both  techniques  and 
cannot  be  heavily  weighted  for  purposes  of  the  selection  of  an  optimum  GVT 
method. 

Input/Output  Format 

The  ability  to  present  modal  data  in  a  variety  of  formats  is  extremely  useful. 
The  data  may  need  to  be  on  punched  cards  or  magnetic  tape  for  further  analysis. 
Modal  shapes  should  be  animated  for  visual  perception  as  well  as  CRT  and  hard 


copy  plots  with  appropriate  annotation  for  report  purposes.  There  is  no  differ¬ 
ence  in  capability  of  such  presentation  of  the  modal  data  in  any  of  the  experi¬ 
mental  modal  analysis  techniques. 

Hardware  Portability 

Both  the  MPE-SD  approach  and  the  SPE-FRA  approach  are  portable  enough  to  provide 
GVT  capability.  Any  such  system  required  can  be  placed  in  a  large  trailer  and 
moved  to  a  remote  site  if  necessary. 

Safety 

The  safety  of  personnel  involved  with  the  test  as  well  as  the  test  airplane  is  of 
vital  concern  always.  No  significant  difference  exists  in  the  application  of  any 
method  discussed. 

2. 4. 1.4  Summary 

The  comparison  of  the  MPE-SD  and  SPE-FRA  methods  is  summarized  in  Figure  1. 
Based  on  this  evaluation,  the  SPE-FRA  method  is  recommended  as  the  better  method. 
The  elements  of  the  method  are  discussed  in  detail  in  Section  3.0. 

The  SPE-FRA  method  is  selected  as  the  method  for  further  development  when  con¬ 
sidering  both  the  primary  and  secondary  weighted  criteria.  Consideration  of 
minor  criteria  shows  neither  method  at  advantage.  Although  the  MPE-SD  and  the 
SPE-FRA  approach  appear  to  be  nearly  equal  in  ability  to  obtain  modal  parameters 
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Criteria 

MPE-SD 

spe-fra 

Primary 

Quality  of  results 

Complex  modal  coefficients 

+ 

Closely  spaced  modes 

+ 

+ 

Complicating  factors 

+ 

+ 

Confidence  factors 

+ 

Increased  accuracy 

- 

+ 

Time  constraint 

“ 

+ 

Operator  expertise 

+ 

+ 

— 

+ 

Secondary 

Cost  reduction 

- 

+ 

Personnel  reduction 

+ 

+ 

Subassemblies 

- 

+ 

Post-test  analysis 

- 

+ 

— 

+ 

Minor 

I/O  format 

+ 

+ 

Portability 

+ 

♦ 

Safety 

+ 

+ 

+ 

+ 

-  Summary 

— 

+ 

Figure  1.  Method  Selection  Summary 
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of  a  structure,  the  continuing  availability  of  improved  modal  parameter  esti¬ 
mation  algorithms  for  the  SPE-FRA  method  is  a  decided  advantage.  The  considera¬ 
tion  of  complex  modal  coefficients,  closely  spaced  modes,  complicating  factors, 
confidence  factors  and  increased  accuracy  lead  to  a  decision  in  favor  of  SPE-FRA. 
The  other  primary  criteria,  the  time  constraint  and  operator  expertise  both  favor 
SPE-FRA.  Consideration  of  secondary  criteria,  cost  reduction,  personnel  reduc¬ 
tion,  treatment  of  sub-assemblies  and  post  test  analysis  also  support  a  decision 
in  favor  of  the  SPE-FRA  method. 

2.4.2  Analytical  Studies  of  the  Modal  Estimation  Process 

Part  of  the  work  for  the  method  selection  process  was  to  conduct  simple  computer 
evaluations  of  the  potential  methods.  In  the  evaluation  of  the  literature,  there 
were  a  number  of  computer  studies  of  both  the  multi-point  excitation  and  the 
single  point  excitation  methods;  Craig  and  $u  (34),  Feix  (57),  Asher  (6),  Berman 
and  Flannel ly  (14),  Sloane  and  McKeever  (187)  and  Gold  and  Hallauer  (223). 
Instead  of  duplicating  these  studies  in  a  similar  fashion,  the  literature  was 
reviewed. 

The  computer  simulations  conducted  were  limited  to  evaluation  of  the  parameter 
estimation  schemes  that  will  be  used  during  the  contract.  Studies  were  made  upon 
the  sources  of  errors  in  making  frequency  response  measurements  and  the  sources 
of  errors  in  the  evaluation  of  curve  fitting  algorithms  which  are  used  for  the 
parameter  estimation  phase  of  the  GVT  (see  Section  3.1).  It  should  be  noted  that 
one  of  the  problems  noted  in  the  literature  and  in  our  own  computer  studies  is 
that  an  ideal  system  is  normally  simulated  and  then  its  characteristics  are 
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computed  using  the  algorithm  to  be  evaluated.  Most  of  the  algorithms  that  are 
evaluated  in  this  fashion  work  well  since  in  most  cases  noise  added  to  the 
process  to  simulate  the  noise  involved  in  the  measurement  processes  is  Gaussian 
distributed.  Most  of  the  curve  fitting  process  work  well  on  this  type  of  data. 
Unfortunately,  the  type  of  noise  that  is  common  to  an  actual  measurement  process 
has  large  bias  error?  due  to  nonlinearities  or  other  excitation  sources  which  may 
exist  in  the  testing  environment.  As  a  result,  these  techniques  which  often 
appear  to  work  well  in  the  computer  studies  do  not  work  well  in  practice. 

In  the  literature  there  were  a  number  of  studies  where  the  multiple  point  method 
was  evaluated  against  single  point  random  or  some  other  method.  It  was  clearly 
evident  from  these  studies  that  in  most  cases  the  testing  group  was  expert  with 
one  technique  but  lacked  experience  with  the  other  techniques.  As  a  result,  the 
evaluation  was  clearly  biased  towards  the  method  they  were  expert  in.  Another 
problem  was  that  a  piece  of  hardware  was  tested  whose  exact  characteristics  were 
unknown.  The  test  structure  was  normally  complicated.  There  were  questions 
concerning  the  validity  of  the  existing  finite  element  model.  As  a  result,  it 
was  difficult  to  determine  just  how  well  each  technique  performed. 
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3.0  RESULTS 


3.1  RECOMMENDED  GROUND  VIBRATION  TESTING  METHOD 

The  method  which  is  recommended  for  ground  vibration  testing  of  aircraft  is  the 
single  point  excitation/frequency  response  analysis  method.  The  reasons  for  the 
selection  of  this  method  are  given  in  the  previous  section. 

In  this  section  the  method  that  has  been  selected  will  be  described  in  detail. 
The  implementation  of  the  method  is  described  in  Appendix  A,  "Guide  for  Ground 
Vibration  Testing  of  Airplanes".  Note  that  one  of  the  main  reasons  for  choosing 
this  technique  is  because  it  will  be  expanded  by  future  research  to  include  much 
better  parameter  estimation  schemes.  When  these  are  developed  they  will  replace 
some  of  the  techniques  which  will  be  described  in  this  section. 

In  this  section  the  excitation  procedures,  measurement  procedures  and  data 
analysis  method  will  be  described.  Also,  measurement  equipment  and  data  analysis 
equipment  will  be  discussed. 

3.1.1  Measurement  Phase 

In  using  this  method  it  is  necessary  to  measure  the  frequency  response  between  a 
number  of  exciter  positions  (force  input  points)  and  a  number  of  output  points 
(displacements).  The  frequency  response  measurements  can  then  be  used  to  esti¬ 
mate  the  modal  parameters  of  the  aircraft  and/or  aircraft  system.  Different 
exciter  locations  are  used  to  estimate  different  sets  of  modal  parameters.  The 
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number  of  exciter  positions  depends  upon  the  nature  of  the  GVT  and  the  complexity 
and  modal  density  of  the  aircraft  system.  The  frequency  response  measurements 
can  be  made  several  different  ways.  The  preferred  technique  is  determined  by  a 
number  of  factors: 

1.  The  type  of  measuring  equipment  and  the  number  of  simultaneous  input 
channels, 

2.  The  characteristics  of  the  structure  (linear  or  nonlinear), 

3.  The  testing  environment, 

4.  The  test  time  window,  and 

5.  The  purpose  and  type  of  GVT  (total  aircraft,  control  surface,  etc.). 

The  type  of  equipment  used,  analog  or  digital,  is  important.  It  is  recommended 
that  a  digital  system  be  employed  because  it  has  the  greatest  flexibility  in  the 
measurement  phase  and  can  also  be  used  to  reduce  the  data.,  The  analog  method  is 
very  slow  since  it  is  limited  to  swept  sine  testing  unless  a  large  number  of 
multiple  channels  of  data  are  processed  simultaneously. 

With  the  digital  equipment,  periodic,  random,  transient  and  operating  inputs  can 
be  used  to  measure  the  frequency  response.  Also,  the  digital  system  can  be 
updated  periodically  by  simply  updating  the  measurement  and  data  analysis  soft¬ 
ware.  As  mert'oned  in  the  previous  section,  there  is  a  great  amount  of  research 


being  conducted  by  a  number  of  researchers  in  the  area  of  structural  system 
identification  and  these  improved  techniques  can  be  incorporated  into  a  digital 
system. 

If  the  system  is  linear  then  any  excitation  technique  can  be  used  to  measure  the 
frequency  response  of  the  aircraft.  However,  for  nonlinear  structures  it  is 
important  to  use  a  measurement  technique  which  will  generate  a  frequency  response 
measurement  which  is  compatible  with  the  selected  parameter  estimation  scheme. 
In  the  following  sections,  the  frequency  response  measurement  and  parameter 
estimation  schemes  will  be  described  in  detail. 

3. 1.1.1  Excitation  Techniques 

The  excitation  techniques  can  be  classified  into  four  general  categories; 
periodic,  random,  transient  and  operating. 

A  periodic  signal  is  one  which  repeats  itself  with  a  given  time  interval  or 
varies  in  a  manner  which  is  slow  enough  that  in  terms  of  signal  processing  it  can 
be  considered  periodic.  Examples  of  this  type  of  input  are  swept  sine,  pseudo 
random  and  periodic  chirps. 

A  random  input  signal  is  a  non-deterministic  signal  which  can  be  characterized  by 
a  probability  density  function  and  a  power  spectral  density  function.  This  kind 
of  input  can  be  pure  random  or  periodic  random,  where  periodic  random  is  a  cross 
between  pure  random  and  pseudo-random. 
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A  transient  signal  is  one  where  the  excitation  force  changes  drastically  as  a 
function  of  time  but  changes  in  a  deterministic  fashion.  Inmost  cases  the  input 
force  decays  to  a  steady  state  value  after  a  short  period  of  time.  Examples  of 
transient  inputs  are  impulses,  unit  steps  and  chirps  (fast  sine  sweeps). 

The  operating  input  corresponds  to  input  forces  generated  by  the  actual  device 
being  tested. 

Periodic  Signals 

Swept  Sine  Testing  -  Since  swept  sine  testing  has  been  in  use  since  the  early 
1960's  it  is  the  most  popular  and  best  understood  of  the  excitation  methods.  The 
procedure  used  is  a  simple  one.  A  sweep  oscillator  is  used  both  as  an  input  to  an 
electro-mechanical  or  hydraulic  exciter  and  as  the  tuning  signal  to  a  narrow  band 
tracking  filter.  The  frequency  sweep  rate  is  sufficiently  low  that  the  excita¬ 
tion  and  response  are  very  nearly  sinusoidal.  The  force  input  to  the  system  is 
measured  with  a  load  cell  and  the  response  of  the  system  is  measured  with  a 
suitable  transducer  such  as  an  accelerometer  or  velocity  pickup.  The  signals 
from  the  transducers  are  passed  through  the  tracking  filters  to  log  converters 
where  signals  proportional  to  the  logarithm  of  the  force  and  response  are 
produced. 

The  logarithm  of  the  force  signal  is  subtracted  from  the  logarithm  of  the 
response  signal  yielding  a  signal  proportional  to  the  log  of  response  divided  by 
force.  The  two  signals  are  also  passed  through  a  phasemeter  to  get  the  relative 
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phase  between  the  force  and  response.  The  output  of  this  type  of  system  typi¬ 
cally  goes  to  an  X,Y,Z  plotter  where  it  is  plotted  as  amplitude  and  phase  versus 
frequency.  The  output  could  also  be  digitized  and  fed  into  a  digital  computer 
for  further  analysis.  By  sweeping  the  oscillator  through  the  entire  frequency 
range  of  interest,  the  frequency  response  can  be  generated. 

The  principal  advantage  of  swept  sine  testing  is  that  the  input  force  can  be 
precisely  controlled.  This  is  particularly  useful  in  the  study  of  nonlinear 
systems.  By  measuring  the  frequency  response  of  the  system  with  several  dif¬ 
ferent  force  levels,  much  can  be  learned  about  the  cause  and  behavior  of  the 
nonl inearity.  Because  all  signals  at  frequencies  other  than  the  input  frequency 
are  filtered  out,  swept  sine  testing  gives  the  best  signal  to  noise  ratio  at  the 
measurement  frequency  of  any  of  the  excitation  techniques.  Swept  sine  testing 
also  has  the  advantage  that  it  can  be  performed  with  relatively  inexpensive 
analog  or  digital  equipment. 

The  major  disadvantage  of  swept  sine  testing  is  that  it  is  slow.  A  test  of  the 
frequency  range  from  1  Hz  to  100  Hz  with  a  two  Hz  bandwidth  filter  takes  approxi¬ 
mately  20  minutes.  Another  disadvantage  of  swept  sine  testing  is  that  it  gives  a 
very  poor  linear  approximation  of  a  nonlinear  system.  This  is  a  serious  problem 
if  the  data  is  to  be  curve  fitted  to  estimate  modal  parameters  since  digital 
parameter  estimation  schemes  are  all  based  on  linear  models  and  the  premise  that 
the  structure  behaves  in  a  linear  manner. 
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The  advantages  of  swept  sine  testing  are: 

1.  It  has  the  best  peak  to  rms  energy  ratio; 

2.  It  has,  by  far,  one  of  the  best  signal  to  noise  characteristics; 

3.  It  is  good  for  documenting  the  nonlinear  characteristics  of  the  test  system; 

4.  It  has  the  longest  history  of  use  and  as  a  result  it  is  the  most  widely 

accepted  input. 

Its  disadvantages  are: 

1.  For  nonlinear  systems  the  measurement  doesn’t  have  the  form  that  satisfies 
the  curve  fitting  models  used  to  obtain  the  modal  coefficients. 

2.  It  is  slow.  It  will  take  at  least  20  minutes  for  a  measurement  in  the  0-100 
Hz  range.  For  a  typical  modal  survey  conducted  on  an  aircraft  a  total  of 
more  than  a  thousand  frequency  response  measurement  may  be  taken.  This  would 
correspond  to  several  months  of  work.  With  the  other  techniques  the  test 
could  be  done  in  several  days. 

Pseudo-Random  -  Because  of  the  development  of  the  digital  Fourier  analyzer, 

pseudo-random  input  testing  has  become  a  practical  method  of  frequency  response 

measurement.  Using  Fourier  transforms  it  is  not  necessary  for  periodic  inputs  to 

be  sinusoidal;  they  can  have  almost  any  spectrum  content.  In  fact  it  would  be 
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possible,  though  not  practical,  to  tune  a  large  number  of  oscillators  to  differ¬ 
ent  frequencies,  mix  the  signals  together  and  use  the  resulting  signal  to  excite 
a  system.  In  one  sample  of  data  it  would  be  possible  to  determine  the  frequency 
response  of  the  system  at  all  the  excitation  frequencies. 

In  practice  the  procedure  for  implementing  a  pseudo-random  signal  is  to  use  a 
digital  to  analog  converter  (DAC)  connected  to  the  computer  of  the  Fourier 
analyzer  to  generate  the  excitation  signal.  The  signal  is  created  in  the  fre¬ 
quency  domain,  normally  with  uniform  amplitude  and  random  phase  angle  throughout 
the  desired  frequency  range.  If  necessary,  the  amplitude  versus  frequency  char¬ 
acteristics  of  the  signal  can  be  modified  to  compensate  for  impedance  mismatch 
between  the  exciter  and  the  structure  thereby  producing  a  flat  shaker  output 
spectrum.  Once  the  desired  frequency  domain  signal  is  produced,  it  is  Fourier 
transformed  into  the  time  domain  and  output  to  the  exciter  system  through  the 
DAC.  This  process  leads  to  one  of  the  important  advantages  of  pseudo-random 
excitation.  Because  the  excitation  signal  is  created  in  the  frequency  domain  and 
transformed  into  the  time  domain,  it  is  always  periodic  within  the  sample  window 
and  therefore  does  not  suffer  from  the  leakage  errors  of  the  pure  random  signal. 
Because  the  signal  contains  energy  at  all  frequencies  of  interest,  it  is  possi¬ 
ble,  in  a  low  noise  environment,  to  make  a  reasonably  good  frequency  response 
measurement  with  only  one  sample  of  data.  In  normal  testing  environments,  a  few 
samples  may  be  required.  One  of  the  principle  disadvantages  of  pseudo-random 
excitation  is  that  nonlinearities  or  loose  components  will  generate  periodic 
noise  which  cannot  be  averaged  out  of  the  data.  Due  to  this  condition,  the 
overall  quality  of  a  pseudo-random  measurement  is  generally  lower  than  that  made 
by  any  of  the  other  techniques.  However,  in  mode  shape  surveys ,  where  several 
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hundred  measurements  may  be  made  with  no  intention  of  curve  fitting  for  frequency 
and  damping,  the  speed  of  pseudo-random  is  a  fair  tradeoff  for  lower  quality 
data. 

For  linear  systems  in  low  noise  environments,  pseudo-random  is  a  good  choice  for 
modal  surveys.  A  structure  for  which  it  would  work  well  would  be  a  frame  type 
structure.  A  structure  for  which  it  would  not  work  as  well  would  be  an  aileron 
system  because  of  the  nonlinearities  in  the  flight  control  system. 

The  advantages  of  pseudo-random  are: 

1.  It  is  fast.  For  a  frequency  range  of  0  to  100  Hz  it  takes  one  sample  period 
of  the  Fourier  analyzer  to  produce  the  frequency  response.  This  is  about  6 
seconds  for  1024  time  domain  points.  This  compares  to  about  20  minutes  for  a 
similar  test  using  swept  sine  excitation. 

2.  It  is  controlled.  Both  the  amplitude  and  frequency  content  of  the  excitation 
signal  can  be  precisely  controlled. 

3.  It  has  a  low  ratio  of  peak  to  rms  energy. 

4.  Noncoherent  noise  can  be  conveniently  averaged  out. 

5.  Leakage  errors  are  eliminated  by  using  an  input  that  is  periodic  within  the 
sample  window  of  the  Fourier  analyzer. 


SO 


Its  disadvantages  are: 


1.  It  is  very  sensitive  to  rattles.  Loose  components  generate  periodic  coherent 
noise  which  cannot  be  averaged  out.  The  noise  appears  as  spikes  on  the 
frequency  response  measurement  which  can  cause  difficulty  in  curve  fitting 
the  data  to  extract  modal  parameters. 

2.  The  energy  input  at  any  given  frequency  is  small  compared  to  swept  sine.  The 
reason,  of  course,  is  that  all  frequencies  are  being  excited  simultaneously. 

Periodic  Fast  Sine  Sweep  -  Another  choice  of  a  periodic  time  domain  signal  is  the 

periodic  fast  sine  sweep.  Good  test  results  are  obtained  using  the  periodic  log 

swept  sine  forcing  function  by  actually  making  the  function  a  true  transient 
signal.  The  log  swept  sine  forcing  function  is  formed  by  means  of  software  in  a 
Fourier  data  block  and  output  through  the  DAC  to  the  exciter.  Since  timing  is 
critical  in  making  a  truly  periodic  forcing  function  in  the  Fourier  analyzer's 
sample  time  (T),  a  transient  signal  is  sometimes  used  that  allows  time  for  the 
response  to  die  out  before  the  end  of  the  time  sample  T.  This  is  accomplished  by 

stopping  the  sweep  typically  at  85%  of  the  total  time  sample  taken.  The  modal 

damping  values  of  the  system  under  test  will  dictate  this  length.  Lightly  damped 
systems  may  require  stopping  the  sweep  at  70%.  In  any  event,  the  sweep  is 
stopped,  allowing  enough  time  for  the  systems  to  decay  out  to  10%  or  less  of  its 
peak  resonnance.  To  soften  startup  and  shutdown  transients,  the  amplitude  of  the 
sweep  time  history  are  also  linearly  ramped  using  a  5%  ramp  time  at  the  beginning 
and  the  end  of  the  sweep. 
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In  the  measurement  phase  of  the  test,  the  swept  sine  has  an  appealing  nature 
compared  to  random  in  that  as  each  resonance  is  traversed  the  response  blossoms, 
giving  a  quick  intuative  feel  as  to  signal-to-noise  ratios  and  system  dampings. 
Data  dropouts  and  other  anomalies  are  much  easier  to  recognize  using  sine  versus 
random.  The  periodic  sine  sweep  gives  good  signal-to-noise  ratios  and  good  peak 
to  RMS  energy  ratios.  Leakage  errors  are  eliminated  by  virtue  of  its  perio¬ 
dicity.  Its  main  disadvantage  is  that  any  nonlinearities  are  not  averaged  out. 
In  a  ground  vibration  test  of  a  complete  aircraft,  the  small  nonlinearities 
within  the  structure  can  present  a  serious  problem  when  attempting  to  curve  fit 
the  data  to  obtain  modal  parameters. (93) 

Random  Signals 

Pure  Random  -  Pure  random  excitation  typically  has  a  Gaussian  distribution  and 
is  characterized  by  the  fact  that  it  is  in  no  way  periodic,  i.e.,  it  does  not 
repeat.  The  output  of  a  random  signal  generator  may  be  passed  through  a  bandpass 
filter  to  concentrate  energy  in  the  band  of  interest.  Generally  the  filter 
spectrum  will  be  flat  except  for  the  filter  rolloff  and,  hence,  only  the  overall 
level  is  easily  controlled. 

One  disadvantage  of  this  approach  is  that,  although  the  shaker  is  being  driven  by 
a  flat  spectrum,  the  structure  is  being  excited  by  a  force  with  a  different 
spectrum  due  to  the  impedance  mismatch  between  the  structure  and  the  exciter. 
This  means  that  the  force  spectrum  is  not  easily  controlled  and  the  structure  is 
not  being  excited  in  the  optimum  manner.  Since  it  is  difficult  to  shape  the 
spectrum  because  it  is  not  generally  controlled  by  the  computer,  some  form  of 
closed  loop  force  control  system  would  ideally  be  used. 


A  more  serious  problem  of  pure  random  excitation  is  that  the  measured  input  and 
response  signals  are  not  periodic  in  the  measurement  time  window  of  the  Fourier 
analyzer.  A  key  assumption  of  digital  Fourier  analysis  is  that  the  time  wave¬ 
forms  be  exactly  periodic  in  the  observation  window.  If  this  condition  is  not 
met,  the  corresponding  frequency  spectrum  will  contain  "leakage"  due  to  the 
nature  of  the  discrete  Fourier  transform;  that  is  energy  from  the  nonperiodic 
parts  of  the  spectrum  will  "leak"  into  the  periodic  parts  of  the  spectrum,  thus 
giving  less  accurate  results  (161). 

In  digital  signal  analyzers,  nonperiodic  time  domain  data  is  typically  multi¬ 
plied  by  a  weighting  function,  such  as  a  Hanning  window,  to  help  reduce  the 
leakage  caused  by  nonperiodic  data  and  a  rectangular  window.  When  a  nonperiodic 
time  waveform  is  multiplied  by  this  window,  the  values  of  the  signal  in  the 
measurement  window  more  closely  satisfy  the  requirements  of  a  periodic  signal. 
The  result  is  that  the  leakage  in  the  spectrum  of  a  signal  that  has  been  multi¬ 
plied  by  a  Hanning  window  is  reduced. 

However,  multiplication  of  two  time  waveforms,  i.e.,  the  nonperiodic  signal  and 
the  Hanning  window,  is  equivalent  to  the  convolution  of  their  respective  Fourier 
transforms  (recall  that  multiplication  in  one  domain  is  exactly  equivalent  to 
convolution  in  the  other  domain).  Hence,  although  multiplication  of  a  non¬ 
periodic  signal  by  a  Hanning  function  reduces  leakage,  the  spectrum  of  the  signal 
is  still  distorted  due  to  the  convolution  with  the  Fourier  transform  of  the 
Hanning  window. 
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With  a  pure  random  signal,  each  sampled  record  of  data  T  seconds  long  is  differ¬ 
ent  from  every  other  sample.  This  gives  rise  to  the  single  most  important 
advantage  of  pure  random  excitation.  Successive  records  of  frequency  domain  data 
can  be  ensemble  averaged  together  to  remove  nonlinear  effect,  noise,  and  distor¬ 
tion  from  the  measurement.  As  more  and  more  averages  are  taken,  all  of  these 
components  of  a  structure's  motion  will  average  toward  an  expected  value  of  zero 
in  the  frequency  domain  data.  Thus,  a  much  better  measure  of  the  least  squares 
estimate  of  the  structural  response  can  be  obtained.  This  is  especially  impor¬ 
tant  because  digital  parameter  estimation  schemes  are  all  based  on  linear  models 
and  measurements  that  contain  distortion  are  more  difficult  to  fit. 

The  advantages  of  pure  random  are: 

1.  It  gives  the  best  linear  approximation  of  a  nonlinear  system. 

2.  It  is  relatively  fast.  It  is  slower  than  impact  or  pseudo-random  but  is 
significantly  faster  than  swept  sine. 

3.  It  is  well  controlled.  The  force  levels  can  be  easily  and  accurately 
controlled. 

4.  It  has  good  peak  to  rms  values. 
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The  disadvantages  of  pure  random  are: 


1.  For  lightly  ^amped  systems,  the  frequency  resolution  of  the  discrete  Fourier 
transform  can  be  a  serious  problem.  However,  this  problem  can  be  reduced  or 
eliminated  by  using  a  zoom  transform. 

2.  It  is  difficult  to  control  the  frequency  spectrum  without  using  special 
computer  software  and  hardware. 

3.  Serious  leakage  errors  exist  because  pure  random  excitation  is  not  periodic 
in  the  Fourier  Analyzer  time  window. 

Periodic  Random  -  Periodic  random  input  combines  the  best  features  of  pure 
random  and  pseudo-random,  but  without  the  disadvantages,  that  is,  it  satisfies 
the  conditions  for  a  periodic  signal,  yet  changes  with  time  so  that  it  excites 
the  structure  in  a  purely  random  manner. 

The  process  begins  by  outputting  a  pseudo-random  signal  from  the  DAC  to  the 
exciter.  After  the  transient  part  of  the  response  has  died  out  and  the  structure 
is  vibrating  in  a  steady  state  condition,  a  measurement  is  taken,  i.e.,  the  auto 
and  cross  spectrums  are  formed.  Then,  instead  of  continuing  to  output  the  same 
signal  again  as  in  pseudo-random  excitation,  a  different  uncorrelated  pseudo¬ 
random  signal  is  synthesized  and  output.  This  new  signal  excites  the  structure 
in  a  new  steady  manner  and  a  new  measurement  i made. 
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When  the  power  spectrum  of  many  measurements  are  averaged  together,  nonlinear¬ 
ities  and  d  stortion  components  are  removed  from  the  frequency  response  -  p-sure- 
ment.  Thus,  the  ability  to  use  a  periodic  random  signal  eliminates  leakage 
problems  and  ensemble  averaging  is  now  useful  for  removing  distortion  because  the 
structure  is  subjected  to  a  different  excitation  before  each  measurement. 

The  only  drawback  to  this  method  is  that  it  is  not  as  fast  as  pseudo-random  or 
pure  random,  since  the  transient  part  of  the  structure's  response  must  be  allowed 
to  die  out  before  each  new  ensemble  average  can  be  made.  The  time  required  for  a 
comparable  number  of  averages  may  be  from  two  to  three  times  as  long.  Still,  in 
many  practical  measurement  situations,  periodic  random  provides  the  best  solu¬ 
tion  in  spite  of  the  extra  time  required. 

The  advantages  of  periodic  random  are: 

1.  It  is  the  best  signal  for  exciting  a  system  to* determine  its  modal  character¬ 
istics  by  curve  fitting. 

2.  It,  like  pure  random,  gives  the  best  linear  approximation  for  a  nonlinear 
system. 

3.  Both  the  input  level  and  spectrum  can  be  carefully  controlled. 
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The  disadvantages  are: 


1.  It  requires  additional  hardware  over  standard  pure  random  measurements  (DAC 
output  from  the  computer). 

2.  It  is  slightly  slower  than  standard  random  measurements,  however,  it  is  up  to 
10  times  faster  than  swept  sine  testing  methods. 

Random  Transient  -  The  random  transient  excitation  function  is  basically  the 
previous  "periodic  random"  modified  so  that  it  is  totally  observed  transient. 
This  is  simply  accomplished  by  requiring  a  dead  band  at  the  end  (typically  the 
last  20%)  of  each  sample  period  of  T  seconds.  The  actual  duration  of  the  dead 
band  must  be  adjusted  for  each  test  specimen  so  that  the  sampled  data  satisfy  the 
criterion  of  a  totally  observed  transient,  i.e.,  no  truncation  of  the  measured 
response  data  in  the  sample  period,  T.  This  is  fairly  easy  to  accomplish  if  the 
test  setup  parameters  establishing  the  duration  of  the  T-second  sample  length 
allow  sufficient  frequency  resolution  to  adequately  define  all  modes  in  the 
excitation  frequency  range.  This  usually  requires  that  Fourier  transforms  be 
obtained  with  block  sizes  of  4K  time  domain  data  points  for  typical  aircraft 
structures.  With  the  availability  of  new  Fourier  Analyzer  systems  with  increased 
computer  data  space,  block  sizes  of  8K  time  domain  data  points  are  becoming 
real izable. 

The  random  transient  excitation  function  exhibits  all  the  advantages  of  periodic 
random.  It  has  random  amplitude  and  phase  in  the  frequency  domain.  Each 
ensemble  of  the  random  transient  is  uncorrelated  with  previous  ensembles. 
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Response  nonlinearities  are  thus  randomized  from  one  ensemble  to  another  such 
that  the  ensemble  average  should  obtain  the  best  linear  estimate  of  the  struc¬ 
tural  transfer  function.  Since  each  ensemble,  when  properly  executed,  is  a 
"totally  observed  transient";  there  are  no  leakage  errors.  The  input  level  and 

t 

frequency  spectrum  can  be  controlled.  It  does  not  have  the  severe  time  handicap 
of  the  periodic  random  requirement  that  one  or  several  ensembles  be  wasted  while 
establishing  periodicity  of  the  vibrating  structure. (90) 

Transient  Signals 

4 

Impact  -  When  the  Fourier  analyzer  was  first  introduced  it  seemed  as  though 
impact  testing  was  the  answer  to  every  frequency  response  tester's  dreams.  In 
theory  it  was  possible  to  determine  the  frequency  response  of  any  structure 
simply  by  hitting  it  with  a  hammer.  This  was  felt  to  be  possible  since  an  impact 
is  an  approximation  to  a  unit  impulse  function  which  contains  energy  at  all 
frequencies.  However,  when  impact  testing  was  first  tried,  it  produced  a  variety 
of  results.  It  seemed  to  work  quite  well  in  some  cases  and  not  at  all  in  others. 

A  great  deal  of  research  has  been  conducted  at  the  University' of  Cincinnati  into 
the  use  of  impact  testing  (225).  This  research  has  shown  that  impact  testing  can 
be  one  of  the  most  useful  testing  techniques  available  if  the  proper'restrictions 
are  applied  as  to  the  type  of  structure,  selection  of  impactors  and  the  signal 
processing  techniques  used. 

There  are  two  very  important  structural  characteristics  to  be  considered  in 
impacting:  linearity  and  damping.  Since  impact  has  a  very  high  ratio  of  peak  to 
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rms  energy  content,  it  tends  to  excite  nonlinearities  in  a  system.  For  this 
reason,  impacting  does  not  work  well  on  a  nonlinear  system.  The  amount  of 
damping  in  the  system  is  also  important.  If  there  is  too  little  damping,  the 
response  signal  will  not  decay  to  zero  within  the  sampling  time  and  severe 
leakage  errors  will  result.  If  there  is  too  much  damping  in  the  system,  noise 
becomes  a  mere  significant  problem.  This  is  because  the  response  signal  decays 
to  zero  shortly  after  the  start  of  sampling  but  any  noise  will  be  present 
throughout  the  total  time.  Both  of  these  conditions  can  be  improved  by  the  use 
of  the  proper  signal  processing  techniques. 

The  problems  with  impact  testing  are  caused  by  the  pulse- like  nature  of  the 
impact  signal.  It  has  a  very  high  peak  value  with  very  short  duration.  This 
causes  the  force  to  overdrive  (i.e.,  excite  the  nonlinearities)  the  system  while 
putting  very  little  total  energy  into  it.  As  a  result,  nonlinear  response  is 
greatly  exaggerated  while  the  signal  to  noise  ratio  for  the  entire  measurement  is 
very  low. 

Impact  Testing  Technique  -  Unlike  the  exciter  techniques,  impact  testing 
requires  much  more  care  in  setup  and  procedure  to  obtain  good  results.  One 
serious  problem,  caused  by  the  high  force  levels  involved,  is  that  of  overdriving 
amplifiers,  filters,  digitizers,  and  the  system  itself.  The  possibility  of  this 
occurring  and  going  unnoticed  is  compounded  by  the  anti-aliasing  filters  used 
with  digital  processing  systems.  These  filters  can  make  even  overloaded  signals 
look  good.  Extreme  care  must  be  used  to  be  sure  overloads  do  not  occur. 
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Mounting  of  transducers  is  also  very  important.  Because  of  the  high  force  levels 
involved,  high  local  accelerations  can  occur.  For  this  reason,  methods  of 
accelerometer  attachment  which  may  work  well  for  other  excitation  methods  do  not 
work  with  impacting.  Magnets,  for  example,  are  very  bad  because  of  their 
tendency  to  bounce. 

The  proper  choice  of  an  impact  hammer  is  also  important.  The  prime  consideration 
is  what  frequency  range  is  to  be  excited.  The  frequency  content  of  an  impulse  is 
inversely  proportional  to  the  width  of  the  pulse.  Factors  which  affect  the  pulse 
width  are  the  weight  of  the  hammer,  the  hardness  of  the  hammer  tip,  the  technique 
of  the  person  swinging  the  hammer  and  the  mass  and  stiffness  of  the  structure 
under  test.  Figures  2  and  3  show  the  effect  of  different  hammers,  tips  and 
masses  on  the  excitation  force  spectrum. 

If  proper  care  is  exercised  in  the  test  setup  and  procedure  and  with  the  proper 
signal  processing  techniques,  impact  testing  can  be  a  very  useful  testing 
technique. 

The  advantages  of  impact  testing  are: 

1.  Setup  and  fixturing  time  are  a  minimum  of  all  the  excitation  techniques. 

2.  Equipment  requirements  are  the  least  of  all  the  testing  methods. 
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3.  It  is  the  fastest  test  method  for  low  noise  environments. 


4.  It  is  ideal  for  use  in  tight  quarters  where  an  exciter  will  not  fit. 

Its  disadvantages  are: 

1.  It  has  a  very  high  peak  to  rms  energy  ratio  and  is  therefore  not  suitable  for 
nonlinear  systems. 

2.  Since  little  energy  is  input  into  the  system,  it  has  poor  signal  to  noise 
characteristics. 

3.  Special  care  must  be  taken  to  eliminate  overloads  to  system,  signal  process¬ 
ing  equipment  and/or  the  data  analysis  equipment. 

Unit  Step  Function  Testing  (Step  Relaxation)  -  A  second  type  of  transient  input 
frequently  used  for  measuring  the  frequency  response  of  a  system  consists  of  a 
unit  step  function  input.  A  unit  step  function  is  normally  generated  by  pre- 
loading  the  structure  with  a  measured  force  through  a  cable  and  then  releasing 
the  cable. 

For  aircraft  testing  this  technique  is  of  limited  usefulness.  Therefore,  only  a 
very  brief  list  of  its  advantages  and  disadvantages  are  given  below: 
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Its  advantages  are: 


1.  It  can  be  used  on  very  small  or  large  structures. 

2.  The  direction  and  magnitude  of  the  force  vector  can  easily  be  controlled. 

3.  It  has  superior  low  frequency  energy  content. 

Its  major  disadvantage  is  that  it  is  difficult  to  implement  on  normal  structures. 

A  more  detailed  complete  evaluation  of  this  type  of  excitation  can  be  found  in 
Reference  225. 

Chirps  (Fast  Sine  Sweeps)  -  A  chirp  is  a  nonperiodic  fast  sine  sweep  where  the 
sweep  rate  exceeds  the  quasi-steady  state  condition  necessary  for  swept  sine 
testing.  It  has  limited  use  for  aircraft  testing  where  the  excitation  signal  is 
supplied  by  an  exciter  system.  However,  it  is  used  when  operating  inputs  excite 
the  system.  This  will  be  briefly  discussed  in  the  following  section. 

Operating  Inputs 

Operating  inputs  would  appear  to  be  an  ideal  excitation  source  for  measuring  the 
frequency  response  of  a  system  where  the  actual  force  input  due  to  operation  is 
used  to  excite  the  system.  Unfortunately,  except  for  simple  cases  the  input 
forces  are  very  difficult  to  measure. 
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Successful  operating  inputs  have  been  unbalances  in  rotating  machinery  and  air¬ 
craft  control  surfaces  shaking  an  airplane  via  inertia  forces.  In  the  latter 
case  the  operating  command  was  derived  from  the  stability  augmentation  system 
computer  and  was  actuated  through  the  normal  operating  flight  control  system. 
Signal  processing  for  operating  inputs  is  identical  to  that  for  random  inputs. 

A  Comment  On  Linearity 

In  the  preceeding  paragraphs  the  importance  of  exciting  the  structure  to  minimize 
nonlinear  effects  has  been  noted.  This  importance  is  a  direct  consequence  of  the 
way  the  data  will  be  used.  In  general,  the  goal  of  the  engineer  involved  in  a 
structural  dynamics  test  is  to  extract  the  best  estimates  of  the  modal  parameters 
of  the  structure,  i.e.,  each  mode's  natural  frequency,  damping  factor,  and 
characteristic  shape.  It  is  this  information  which  is  used  to  study,  alter,  and 
improve  the  dynamic  behavior  of  the  structure. 

Neariy  all  techniques  in  use  today  to  extract  modal  parameters  are  based  on 
linear  structural  models.  In  general,  a  linear  model  is  fitted  to  the  measured 
data  by  some  form  of  curve  fitting  method.  Any  nonlinear  distortion  in  the 
measured  data  will  impair  the  ability  of  the  analytical  curve  fitting  algorithm 
to  accurately  extract  modal  parameters. 

It  is  noted  that  evaluation  of  nonlinearities  is  not  trivial.  The  study  of  a 
structure’s  nonlinear  characteristics  by  exciting  it  with  a  sinusoidal  source 
where  the  frequency  and  amplitude  can  be  accurately  controlled  is  occasionally 
required.  However,  if  one  wishes  to  extract  modal  parameters,  the  structure  must 
be  excited  such  that  it's  linear  characteristics  may  be  measured. 
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3.1. 1.2  Test  Setup 


The  test  setup  should  be  supported  by  a  pretest  analysis  that  identifies  the 
dynamic  characteristics  of  the  test  article  relative  to  various  excitation  in¬ 
puts,  exciter  locations  and  transducer  positions.  This  procedure  maximizes  the 
success  of  the  test.  In  the  absence  of  a  pretest  analysis,  experience,  good  test 
practice  and  procedures,  and  additional  test  data  must  suffice.  The  important 
aspects  of  the  test  setup  include  aircraft  suspension,  excitation  equipment  and 
technique,  and  transducers. 

Aircraft  Suspension 

The  suspension  of  the  aircraft  falls  into  three  categories:  (1)  frequency  separa¬ 
tion  techniques  to  achieve  nearly  free-free  modes,  (2)  known  or  measured  boundary 
conditions,  and  (3)  a  clamped  condition.  In  any  event  the  boundary  condition 
must  be  well  understood  so  that  interaction  between  the  structure  and  the  con¬ 
straint  can  be  accounted  for  in  the  test  results.  Considerations  of  the  aircraft 
suspension  is  simplified  when  included  as  a  part  of  a  pre-test  analysis.  Without 
pre-test  analysis,  a  suspension  system  that  introduces  little  contamination  of 
the  deformation  modes  of  the  test  article  or  whose  characteristics  are  well 
understood  is  essential. 

Frequency  Separation  Techniques  -  The  frequency  separation  techniques  in  common 
usage  attempt  to  obtain  free-free  modes  of  the  structure  by  achieving  a  separa¬ 
tion  between  the  fundamental  mode  of  the  aircraft  and  the  rigid  modes  of  the 
aircraft  on  the  suspension.  This  implies  that  the  constraints  are  very  lightly 
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damped  and  well  separated  in  frequency  from  the  airplane  modes.  Various  tech¬ 
niques  include  testing  on  under-inflated  tires  with  the  landing  ge”  effectively 
bottomed,  suspending  the  aircraft  on  bungee  cord,  suspension  on  commercially 
available  air  springs  and  the  use  of  specially  designed  support  systems  such  as 
mechanical  springs.  The  choice  of  technique  here  is  dependent  on  the  overall 
size  and  weight  of  the  aircraft  as  well  as  its  fundamental  mode.  Care  must  be 
taken  so  that  the  total  suspension  system  does  net  introduce  modes  in  the  fre¬ 
quency  range  of  the  test  article. 

Known  or  Measured  Boundary  Conditions  -  The  free-free  techniques  such  as  under¬ 
inflated  tires,  air  springs,  bungee  cord  and  mechanical  springs  can  also  repre¬ 
sent  known  or  measured  boundary  conditions.  In  these  cases  the  effects  of  the 
known  or  measured  boundary  conditions  can  be  used  in  a  pretest  or  post-test 
analysis  to  compute  the  mathematical  model  of  the  test  aircraft. 

The  "Clamped  Condition"  -  In  this  case  one  attempts  to  achieve  a  cantilevered  or 
near-cantilevered  boundary  condition.  A  free-free  airplane  model  is  obtained 
from  the  measured  modal  parameters  by  including  rigid  body  degrees  of  freedom  in 
a  post  test  analysis.  The  clamped  condition  is  the  most  difficult  boundary 
condition  to  achieve  and  may  or  may  not  be  successful.  This  technique  is  not 
recommended  for  aircraft  suspension,  but  may  be  suitable  for  testing  airplane 
components. 
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Excitation  Equipment 


Excitation  equipment  falls  into  two  main  categories:  shakers  and  impulsive 
exciters.  Both  categories  are  recommended  and  their  use  is  dictated  by  the  test 
article  and  personal  preference. 

Shakers  -  Shakers  are  categorized  mainly  as  electromagnetic,  hydraulic,  air  and 
inertia.  Electromagnetic  and  hydraulic  are  used  for  most  applications.  Air 
shakers  are  generally  quite  limited  and  only  used  in  applications  where  the 
structure  is  so  light  that  no  single  attachment  to  the  structure  can  be  made. 
Inertia  shakers  are  not  usually  used  in  ground  vibration  testing  of  aircraft  but 
quite  often  have  application  in  flight  flutter  testing.  The  power  requirements 
for  the  shakers  can  best  be  determined  by  pre-test  analysis,  however,  when  a  pre¬ 
test  analysis  is  not  available  experience  must  suffice. 

Impulsive  Exciters  -  Typical  impulsive  exciters  are  instrumented  hammers, 
bonkers  and  step  relaxation  equipment.  The  use  of  these  techniques  all  require 
measurement  of  the  force  imparted  to  the  structure.  The  use  of  bonkers,  which 
are  explosive  devices  such  as  shot  shells,  is  somewhat  limited  in  aircraft 
testing  where  they  have  been  mainly  used  as  flight  flutter  exciters.  The  use  has 
probably  been  supplanted  by  the  use  of  aerodynamic  vanes  for  that  purpose  (90). 

Instrumented  hammer  techniques  are  in  wide  usage  in  industry  for  impact  testing. 
Their  use  can  be  restricted  by  local  structure  loading  requirements  but  they  have 
been  used  on  very  large  structures  such  as  transmission  towers  and  small  and 
lightweight  structures  such  as  flutter  models.  One  selects  an  appropriate  hammer 
for  each  application. 
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Step  relaxation  techniques  can  be  used  in  some  applications  where  hammer  tech¬ 
niques  are  inappropriate.  With  this  method  a  measured  impulse  is  imparted  to  the 
structure  under  test  by  pulling  on  it  with  a  known  force  and  then  impulsively 
releasing,  such  as  with  a  cut  string. 

Sensors 

The  selection  of  transducers  may  cover  a  wide  range.  Accelerometers,  velocity 
sensors,  strain-gages,  displacement  sensors  and  force  transducers  are  all 
appropriate.  Generally,  accelerometers  are  recommended  for  most  aircraft 
testing.  Accelerometer  selection  is  dependent  on  the  frequency  resolution 
required  for  the  aircraft  under  test.  When  aircraft  with  low  frequencies  are 
being  tested,  servo  type  accelerometers  or  similar  equipment  with  flat  response 
down  to  DC  are  required.  If  resolution  to  only  5  Hz  is  necessary,  less  expensive 
accelerometers  are  used.  The  use  of  many  fixed  accelerometers  are  recommended 
for  large  aircraft  applications  rather  than  the  use  of  roving  pickups  because  of 
the  cost  of  time  on  test.  Another  advantage  is  in  being  able  to  format  the  test 
data  display  of  vibration  modes  during  the  test. 

3. 1.1. 3  Data  Handling 

Two  data  collection  techniques  are  in  use;  a  standard  analogue  technique  and  a 
more  automated  state-of-the-art  method  using  an  analog  to  digital  converter  and  a 
multiplexer.  The  latter  technique  requires  more  specialized  equipment.  This 
includes  off-the-shelf  32-channel  equipment  that  greatly  improves  the  efficien¬ 
cies  of  data  collection  and  processing. 


The  standard  analogue  technique  acquires  time  domain  data  of  all  transducers 
including  the  excitation  signal,  a  data  ready  pulse  and  time  code.  The  data  is 
stored  to  an  analog  tape  recorder.  Any  one  accelerometer  is  monitored  on  line 
and  provides  a  check  of  the  quality  of  the  measurement  in  the  frequency  domain. 
The  coherence  function  is  also  calculated  and  examined  for  each  measurement. 

The  data  acquisition  is  handled  using  a  computer  which  is  also  used  to  provide 
the  excitation  signals  and  a  synchronous  data  ready  pulse  signaling  the  start  of 
each  separate  test  ensemble. 

The  data  is  collected  over  a  time  period,  T,  chosen  for  each  sample  of  data  such 
that  the  structural  response  has  died  out  within  the  time  period  and  that  the 
frequency  resolution,  1/T,  is  sufficiently  small  to  adequately  define  the  reso¬ 
nant  peaks.  Generally,  the  frequency  resolution  should  be  about  one-fourth  the 
half  power  point  bandwidth  of  the  resonant  peaks. 

Considerable  improvements  can  be  implemented  in  data  acquisition  systems  via  the 
new  generation  of  off-the-shelf  hardware.  Autoranging  amplifiers,  analog-to- 
digital  converters,  digital  link  recording  and  computer-driven  CRT’s  can  be 
integrated  into  a  computer  controlled  system  with  little  or  no  development  work. 
Data  management  is  greatly  simplified  by  using  a  computer  system  with  a  real  time 
executive. 
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3. 1.1. 4  Data  Processing 


Computer  Hardware 

The  computer  equipment  must  be  able  to  perform  Fast  Fourier  Transforms,  digital 
signal  processing,  curve  fitting  and  test  control.  Although  these  functions  are 
available  in  signal  analyzer  equipment,  the  minicomputer  based  modal  analysis 
computer  system  is  preferred  because  of  its  greater  capability  and  versatility. 

Computer  Software 

Data  processing  to  be  performed  consists  of  calculation  of  the  frequency  response 
function  from  the  measured  data,  curve  fitting  the  frequency  response  function, 
calculation  of  the  modal  parameters  (frequency,  damping,  modeshape  amplitude  and 
phase,  mass)  and  data  display.  Commercial  software  systems  are  available  for 
measurement  and  data  processing. 

The  data  generated  will  be  output  in  printed  arrays  and/or  animated  mode  shapes 
in  a  CRT  display.  Display  coordinates  for  each  transducer  will  be  defined.  The 
graphical  displays  will  show  the  entire  deformed  structure  relative  to  its  unde¬ 
formed  shape  or  vector  displays  at  each  transducer  coordinate.  Hard  copies  of 
the  CRT  display  will  be  made. 
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3. 1.1. 5  System  Checks 


System  checks  are  controlled  by  a  series  of  handbook  procedures.  These  checks 
cover  all  aspects  of  the  GVT,  in  addition  to  procedures  for  checking  the  computer 
based  systems. 

3. 1.1. 6  Signal  Processing  Techniques 

Several  signal  processing  techniques  can  be  used  to  improve  signal  to  noise  ratio 
problems.  One  common  source  of  noise  on  both  the  force  and  response  signals  is 
electrical  noise  occurring  at  harmonics  of  the  power  line  frequency.  This  noise 
can  be  minimized  by  choosing  a  sample  period  such  that  the  power  line  harmonics 
are  exactly  periodic  within  the  sample  window,  i.e.,  the  total  measurement  time 
is  an  integer  multiple  of  1/60  second.  This  will  cause  them  to  fall  exactly  on  a 
single  spectral  line  of  the  analyzer  where  they  can  be  modified  without  affecting 
other  data.  One  modification  would  be  to  set  the  power  line  harmonics  to  the 
average  value  of  the  two  adjacent  spectral  lines.  Of  course  this  technique  is 
only  useful  if  the  data  of  interest  do  not  fall  at  the  power  line  frequencies. 

Another  source  of  noise  is  digitizer  or  "bit"  noise.  This  is  characterized  by 
random  one  or  two  bit  excursions  of  the  signal  about  zero  volts.  Figure  4 
illustrates  this  with  a  greatly  magnified  force  pulse.  Intuitively  it  would  seem 
that  this  noise  is  insignificant  when  compared  with  the  amplitude  of  the  force 
pulse.  However,  when  the  energy  associated  with  the  noise  is  compared  with  the 
energy  of  the  force  pulse  the  noise  becomes  very  significant. 
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A  technique  which  can  be  used  to  minimize  the  digitizer  noise  on  the  force  signal 
involves  multiplying  the  time  domain  signal  by  a  window  or  weighting  function  as 
shown  in  Figure  5.  The  characteristics  of  this  window  are  that  it  has  unity 
amplitude  for  the  duration  of  the  force  and  a  smooth  transition  to  zero  after  the 
force  pulse  is  ended.  Since  the  force  signal  is  known  to  be  zero  after  the 
impactor  has  left  the  surface,  no  measurement  errors  are  introduced  by  using  this 
technique.  The  effect  of  using  this  window  is  shown  in  Figures  6  and  7. 

For  severe  noise  problems  such  as  might  be  encountered  in  analyzing  tape  recorded 
data,  curve  fitting  techniques  can  be  used  to  clean  up  the  force  signal.  Figure 
8  shows  a  force  spectrum  from  an  impact  with  a  signal  to  noise  ratio  of  one  (i.e., 
the  rms  noise  level  is  equal  to  the  rms  signal  level).  Figure  9  shows  the  same 
force  spectrum  after  it  has  been  fitted  using  a  complex  exponential  algorithm 
using  five  degrees  of  freedom  (225,  226).  Figure  10  shows  a  spectrum  from  the 
same  force  signal  with  no  added  noise.  It  can  be  seen  that  this  method  can 
recover  a  reasonable  force  signal  even  from  a  force  pulse  with  very  high  noise. 

Noise  on  the  response  signal  is  handled  much  like  the  digitizer  noise  on  the 
force  signal  except  that  a  different  weighting  function  is  used.  With  a  tran¬ 
sient  input,  the  signal  level  at  the  beginning  of  the  sample  is  much  higher  than 
at  the  end  of  the  sample.  Assuming  a  uniform  noise  level,  the  signal  to  noise 
ratio  decreases  as  the  signal  level  decreases.  Thus  the  data  at  the  beginning  of 
the  sample  is  much  more  reliable  than  that  at  the  end.  For  this  reason  the 
weighting  function  shown  in  Figure  11  is  used.  Unlike  the  force  window,  this 
window  does  have  an  effect  on  the  measured  frequency  response.  However,  the 
effects  are  known  and  correctable.  The  window  has  the  form  of  Ae"  and  its 
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effect  is  equivalent  to  adding  damping  to  the  system.  If  the  actual  damping  in 
the  system  is  required,  the  damping  added  by  the  window  can  be  easily  subtracted 
off. 

3.1.2  Interpretation  Phase 

3. 1.2.1  Introduction  to  Modal  Analysis* 

Review  of  Modal  Analysis  Using  Transfer  Functions 

Modes  of  vibration  have  already  been  defined  in  terms  of  the  eigenvalues  and 
eigenvectors  of  the  time  domain  equations  of  motion.  Since  the  transfer  function 
method  of  modal  testing  is  based  upon  the  measurement  of  frequency  domain  func¬ 
tions,  it  is  next  shown  that  modes  of  vibration  can  be  defined  by  parameters  of  a 
transfer  function  matrix  model  of  the  structure,  which  is  equivalent  to  the  time 
domain  model. 

It  should  become  clear  from  this  analysis  that  during  a  typical  modal  test,  one 
row  or  column  of  the  transfer  matrix  model  is  being  measured,  and  that  this  is 
sufficient  information  to  identify  all  the  parameters  which  define  the  modes  of 
vibration.  It  should  also  become  clear  that  a  complete  dynamic  model  can  be 
constructed  from  the  modal  parameters. 


*This  section  is  excerpted,  with  permission,  from  "Measurement  and  Analysis  of 
the  Dynamics  of  Mechanical  Structures",  a  lecture  by  Mark  H.  Richardson. 


Time  Domain  Model  -  In  a  measurement  situation  the  actual  input  forces  and 
responses  for  a  finite  number  of  degrees-of-freedom  of  the  structure  are 
measured.  So  if  a  model  were  constructed  from  the  measurements  involving  these 
specific  degrees-of-freedom,  the  model  would  give  an  accurate  description  of  the 
structural  dynamics  involving  those  points.  This  is  a  different  situation  than 
with  a  finite  element  model  where  the  degrees-of-freedom  and  the  size  and  shape 
of  the  elements  are  chosen  so  as  to  approximate  the  dynamics  of  the  structure  as 
closely  as  possible. 

The  time  domain  structural  dynamic  model,  as  shown  in  Figure  12,  exhibits  the 
same  form  as  the  finite  element  model  but,  at  least  in  principle,  is  an  exact 
model  of  the  structural  dynamics  if  obtained  from  measurements. 

Laplace  Domain  Model  -  We  do  not  directly  measure  the  time  domain  model  of  Figure 
12,  but  rather  its  Laplace  domain  equivalent,  shown  in  Figure  13. 

In  this  model  the  inputs  and  responses  of  the  structure  are  represented  by  their 
Laplace  transforms.  Time  domain  derivatives  (i.e.  velocity  and  acceleration)  do 
not  appear  explicity  in  the  Laplace  domain  model  but  are  accounted  for  in  the 
transfer  functions.  The  transfer  matrix  contains  transfer  functions  which 
describe  the  effect  of  an  input  at  each  degree-of-freedom  (D.O.F.)  upon  the 
response  at  each  D.O.F.  Because  the  model  is  linear,  the  transformed  total 
motion  for  any  D.O.F.  is  the  sum  of  each  transformed  input  force  multiplied  by 
the  transfer  function  between  the  input  D.O.F.  and  the  response  D.O.F. 
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Figure  12.  The  Structure  Dynamic  Mode I  (Time  Domain) 
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For  example. 


Xj_ ( S)  -  hu  (S)F1{S)  +  h12(S)F2(S)  +  ...  +  hln(S)Fn(S) 

Transfer  Function  of  a  Single  Degree-of-Freedom  -  The  Laplace  variable  is  a 
complex  number,  normally  denoted  by  S  =  o  +  jw.  Since  the  transfer  function  is  a 
function  of  the  S-variable,  it  too  is  complex  valued.  Plots  of  a  typical 
transfer  function  on  the  S-plane  are  shown  in  Figure  14.  Because  it  is  complex, 
the  transfer  function  is  represented  by  its  REAL  and  IMAGINARY  parts  or  equival¬ 
ently  by  its  MAGNITUDE  and  PHASE.  Note  that  in  this  case,  the  transfer  function 
is  only  plotted  over  half  of  the  S-plane,  i.e.,  it  is  not  plotted  for  any 
positive  values  of  a  .  This  was  done  to  give  a  clear  picture  of  the  transfer 
function  values  along  the  jw-axis.  These  values  will  become  important  later  in 
this  development. 

Note  also  that  the  magnitude  of  the  transfer  function  goes  to  infinity  at  two 
points  in  the  S-plane.  These  discontinuities  are  called  the  POLES  of  the  trans¬ 
fer  function.  These  poles  define  resonant  conditions  on  the  structure  which  will 
"amplify"  an  input  force.  The  location  of  these  poles  in  the  S-plane  is  defined 
by  a  FREQUENCY  and  DAMPING  value  as  shown  in  Figure  15.  Hence,  the  a  -ax is  and 
jw-axis  of  the  S-plane  have  become  known  as  the  damping  axis  and  the  frequency 
axis  respectively.  The  frequency  and  damping  which  define  a  pole  in  the  S-plane 
are  the  frequency  and  damping  of  a  mode  of  vibration  of  the  structure. 

Transfer  Matrix  in  Partial  Fraction  Form  -  The  elements  of  the  transfer  matrix 
can  be  written  as  ratios  of  polynomials  as  shown  in  Figure  13.  With  some  minor 
assumptions,  (explained  later)  the  transfer  matrix  can  be  re-written  in  partial 
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Figure  14.  Transfer  Function  of  a  Single  Degree-of- Freedom 


o0  -  Damping  coefficient 
Wo  -  Damped  natural  frequency 
Jr,  -  Resonant  (undamped)  natural  frequency 
f0  ”  COS  0o  -  Damping  factor  (or  percent  of  critical  damping) 


Figure  IS.  S-Plane  Nomenclature 


fraction  form  as  shown  in  Figure  16.  This  form  clearly  shows  the  transfer 
function  in  terms  of  the  parameters  which  describe  its  pole  locations,  namely  Pk!=,,k 
+  j«k.  For  a  model  with  n-degrees-of-freedom,  it  is  clear  that  the  transfer 
functions  contain  n-pole  pairs  (pk,  p^*). 

Two  unique  features  of  the  partial  fraction  form  are  that  al^  transfer  functions 
contain  the  same  denominator  terms  involving  the  S-variable,  and  that  the  numer¬ 
ators  simply  become  constants  (numbers)  which  are  assembled  into  the  RESIDUE 
matrix,  and  its  conjugate  matrix. 

Transfer  Matrix  in  Terms  of  Modal  Parameters  -  After  writing  it  in  partial 
fraction  form,  the  transfer  function  can  be  further  simplified  by  writing  the 
residue  matrix  in  terms  of  a  MODAL  VECTOR  (u^)  as  shown  in  Figure  17. 

The  derivation  of  this  form  is  given  in  References  (156)  or  (170).  This  is  a 
crucial  step,  for  now  we  have  reduced  the  transfer  matrix  (i.e.  the  entire 
dynamic  model)  to  a  parametric  form  involving  only  modal  parameters.  As  stated 
in  Figure  17,  a  mode  of  vibration  is  characterized  by  a  pair  of  conjugate  poles 
and  a  pair  of  conjugate  mode  vectors. 


*  -  denotes  complex  conjugate 


H(s)  =  ^ 
k«1 

pk=  ok+  jcok“  km  POLE 

rk-  MATRIX  OF  RESIDUES  FOR  kthPOLE 


Pk  s-Pk 


ru(k)  r,j(k)  .  . 

fji(k)  •. 


(n  x  n) 


Figure  16.  Transfer  Function  Matrix  in  Partial  Fraction  Form 
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u,  -  k"  MODAL  VECTOR  <n  -  DIMENSIONAL.) 


MOOt  Of  VEMUTWN:  A  MODE  (k)  IS  CHARACTERIZED  SV  A 
PAIR  Of  CONJUGATE  POLES  (J>..  p,*)  AND  A  PAIR  Of 
CONJUGATE  MODAL  VECTORS  (U.,  u,*). 


Figure  17.  Transfer  Matrix  in  Terms  of  Modal  Parameters 
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Note  that  the  unique  form  of  the  residue  matrix  allows  the  entire  (n  x  n)  matrix 
to  be  defined  once  the  n-dimensional  mode  vector  is  known.  Furthermore,  since 
every  row  and  column  contains  the  mode  vector  multiplied  by  a  different  component 
of  itself,  ONLY  ONE  ROW  OR  COLUMN  of  the  residue  matrix  (and  hence  the  transfer 
matrix)  needs  to  be  measured  in  order  to  identify  the  mode  vector.  A  2-dimen¬ 
sional  case  is  written  out  in  Figure  18  to  illustrate  this  point. 

The  numerators  of  the  first  column  of  the  transfer  matrix  are  made  up  of  the  mode 
vector  (u^,  u?^)  multiplied  by  its  first  component  (u-^),  plus  the  conjugate 
mode  vector  (u^,  *u21*)  multiplied  by  its  first  component  (u^*),  for  mode  #1. 
Similiarly,  two  more  terms  are  added  for  mode  #2.  The  denominators,  which 
contain  the  pole  locations  (p^,  p^*)  and  (p^,  p^*),  are  the  same  for  every 
transfer  function  in  the  matrix. 

Modal  Testing  Implications  -  The  modal  testing  implications  of  this  final  para¬ 
metric  form  of  the  transfer  function  model  are  stated  in  Figure  19. 

Normally  only  one  row  or  column  of  the  transfer  matrix  is  measured  in  a  modal 
test,  although  multiple  row  and  column  elements  could  be  measured  to  obtain 
better  estimates  of  the  modal  parameters.  Reference  (172)  covers  this  subject. 

The  assumptions  made  in  order  to  derive  the  parametric  form  of  the  model  are 
explained  in  more  detail  in  Reference  (170).  These  assumptions  can  be  satisfied 
in  a  large  number  of  test  situations  but  they  must  be  kept  in  mind  during  a  modal 
test  since  they  can  be  easily  violated  when  testing  complex  structures. 
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Figure  18.  Two  Degree-of- Freedom  Case 


Modal  parameter!  can  be  identified  from  one  row  or  column  of  the 
tranjfer  function  matrix 

Assumptions 

1.  Structural  motion  can  be  described  by  linear  second  order  equations 

2.  The  structure  exhibits  symmetry  (or  reciprocity) 

3.  Only  one  mode  exists  at  each  pole  location 

4.  Modes  are  defined  in  a  global  sense 

Figure  19.  Modal  Testing  Implications 
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Transfer  Function  Measurement 


In  a  test  situation  we  do  not  actually  measure  the  transfer  function  over  the 
entire  S-plane,  but  rather  its  values  along  the  jw-axis. 

These  values  are  known  as  the  FREQUENCY  RESPONSE  FUNCTION,  as  shown  in  Figure  20. 
Since  the  transfer  function  is  an  "analytic"  function,  its  values  throughout  the 
S-plane  can  be  inferred  from  its  values  along  the  jw-axis.  More  specifically,  if 
we  can  identify  the  unknown  modal  parameters  of  a  transfer  function  by  " curve 
fitting"  the  analytical  form  in  Figure  16  to  measured  values  of  the  function 
along  the  jw-axis,  then  we  can  synthesize  the  function  throughout  the  S-plane. 

Alternative  Forms  of  the  Frequency  Response  -  The  frequency  response  function, 
being  complex  values,  is  represented  by  two  numbers  at  each  frequency.  The  so 
called  CO-QUAD  pilot,  or  real  and  imaginary  parts,  derives  its  origin  from  the 
days  of  swept  sine  testing  when  the  real  part  was  referred  to  as  the  Coincident 
waveform  and  the  imaginary  part  as  the  QUADrature  waveform.  The  Bode  plot,  or 
log  magnitude  and  phase  vs.  frequency,  is  named  after  H.  W.  Bode  who  made  many 
contributions  to  the  analysis  of  frequency  response  functions.  (Many  of  Bode's 
techniques  involved  plotting  these  functions  along  a  log-frequency  axis.) 

The  Nyquist  plot,  or  real  vs.  imaginary  part,  is  named  after  the  gentleman  who 
popularized  its  use  for  determining  the  stability  of  linear  systems.  The  Nichols 
plot,  or  log  magnitude  vs.  phase  angle,  is  named  after  N.  B.  Nichols  who  used 
such  plots  to  analyze  servo-mechanisms. 


Measuring  Elements  of  the  Transfer  Matrix  -  The  simplest  way  of  measuring  ele¬ 
ments  of  the  transfer  matrix  (i.e.  frequency  response  functions)  is  to  measure 
them  one  at  a  time,  as  shown  in  Figure  21.  In  this  simple  2-dimensional  case  the 
frequency  response  function  (h^(w))  is  measured  by  exciting  the  sdtructure  at 
pt.  #1  and  measuring  response  at  pt.  #1.  Then  the  function  is  formed  by  dividing 
the  Fourier  transform  of  the  measured  response  motion  (X^(w))  by  the  Fourier 
transform  of  the  measured  input  force  (F^(w)).  Likewise  the  second  element  in 
the  first  row  (h^w))  is  measured  by  exciting  the  structure  at  pt.  #2  and  then 
dividing  the  Fourier  transform  of  the  response  motion  (X^(w))  by  the  Fourier 
transform  of  the  input  force  ^(w)).  The  second  row  of  elements  can  be  measured 
in  a  similar  manner. 

More  sophisticated  measurement  methods  involving  multiple  inputs  and  responses 
could  be  implemented,  but  this  simplified  single  input-single  output  approach  is 
most  commonly  used. 

If  time  savings  is  a  significant  test  objective,  as  it  often  is  in  larger  modal 
tests,  than  test  time  can  be  significantly  reduced  by  measuring  a  single  input 
force  and  several  response  motions  simulataneously.  From  this  data,  several 
transfer  functions  in  a  single  column  of  the  transfer  matrix  can  be  computed. 

Modal  Parameter  Identification 

Once  a  set  of  transfer  functions  has  been  measured  from  a  structure,  modal 
parameters  are  identified  by  "curve  fitting"  an  ideal  form  for  the  transfer 
function  to  the  measurement  data. 
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Figure  21.  Measuring  Elements  of  the  Transfer  Matrix 
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As  shown  in  Figure  22,  at  least  one  row  or  column  of  transfer  functions  from  the 
transfer  matrix  must  be  measured  in  order  to  identify  the  mode  shapes.  The  mode 
shapes,  or  mode  vectors,  are  then  assembled  from  the  identified  residues  from 
each  measurement  at  the  same  modal  frequency. 

Figure  23  shows  a  breakdown  of  a  measurement  into  a  summation  of  the  contribu¬ 
tions  due  to  each  of  the  modes  of  vibration.  That  is,  the  magnitude  of  the 
transfer  function  shown  by  the  solid  line  in  the  figure,  is  really  the  summation 
of  a  number  of  magnitude  functions  shown  by  the  dashed  lines  in  the  figure,  each 
one  due  to  a  different  mode  of  vibration. 

The  modal  parameters  (frequency,  damping  and  residue),  of  a  single  mode  can  be 
identified  by  curve  fitting  the  dashed  line  function  corresponding  to  that  mode. 
However,  since  only  the  solid  line  function  was  measured,  it  is  clear  that  to 
identify  modal  parameters  accurately,  all  the  parameters  of  all  the  modes  must  be 
identified  siultaneously  by  some  method  which  fits  a  multiple  mode  form  of  the 
transfer  function  to  the  data.  This  method  is  called  a  "multiple  mode"  curve 
fitting  method. 

Many  times,  the  accuracy  of  a  multiple  mode  method  is  not  required,  so  simple, 
easier-to-use  methods  known  as  "single  mode"  methods  are  used  to  identify  the 
unknown  parameters.  A  single  mode  method  treats  the  data  in  the  vicinity  of  a 
modal  resonance  peak  as  if  it  is  due  solely  to  a  single  mode  of  vibration.  In 
other  words  the  "tails"  of  the  resonance  curves  from  other  modes  are  considered 
to  have  negligible  contribution  to  the  data  in  the  vicinity  of  the  resonance  peak 
in  question. 
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Figure  22.  Modal  Parameter  Identification 


Figure  23.  Multiple  Degree-of- Freedom  Transfer  Function 
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The  amount  of  error  incurred  with  the  use  of  single  mode  methods  is  dictated  by 
the  amount  of  "modal  coupling"  in  the  measurements. 


In  a  light  modal  coupling  case  the  measurement  data  in  the  vicinity  of  a  modal 
resonance  peak  is  predominantly  due  to  that  mode,  and  the  influence  of  the  other 
modes  is  minimal.  In  this  case  a  single  mode  curve  fitting  method  can  give 
accurate  results. 

In  a  heavy  modal  coupling  case  the  influence  of  the  tails  of  other  modes  is  not 
negligible,  so  a  single  mode  method  will  incorrectly  identify  modal  parameters. 

3. 1.2. 2  Modal  Parameter  Determination 

Once  the  frequency  response  information  on  the  aircraft  has  been  measured,  the 
frequency  response  information  is  curve  fit  to  identify  the  modal  parameters.  In 
the  following  sections,  the  modal  parameter  identification  algorithms  are  des¬ 
cribed  in  detail.  An  algorithm  is  defined  as  a  mathematical  solution  procedure. 
These  procedures  can,  in  general,  be  implemented  on  any  computer.  Care  must  be 
taken  in  discussing  algorithms  because  the  resulting  computer  program  implement¬ 
ation  is  often  also  called  (mistakenly)  an  algorithm.  The  curve  fitting  computer 
pregrams  are  applied  to  selected  portions  of  the  frequency  response  functions. 
The  analysis  of  one  frequency  response  function  could  conceivably  involve  the  use 
of  all  available  curve  fitting  routines,  each  applied  to  a  different  frequency 
band.  A  typical  frequency  response  function  is  shown  on  Figure  24. 
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Single  Degree  of  Freedom  Approximations 

In  most  modal  parameter  estimation  schemes,  the  usual  procedure  is  to  first 
estimate  the  eigenvalues  (natural  frequencies  and  damping  factors)  and  then  to 
estimate  the  eigenvectors  (modal  coefficient).  Note  that  the  solution  for  the 
eigenvalues  from  measured  frequency  response  information  is  mathematically  a 
nonlinear  process  which,  in  general,  greatly  complicates  the  parameter  estima¬ 
tion  schemes,  particularly  the  multiple  degree  of  freedom  cases. 

The  methods  that  are  discussed  in  this  section  are  all  single  degree  of  freedom 
approximation  procedures.  Many  of  the  techniques  are  those  which  were  used 
historically  with  swept  sine  testing  techniques  utilizing  analog  data  analysis 
equipment.  As  a  result  of  this  type  of  equipment,  the  initial  modal  coefficients 
were  output  directly  from  the  analog  equipment  (CO-QUAD  Analyzers)  or  graphi¬ 
cally  determined  from  plotted  frequency  response  information.  With  the  advent  of 
small,  dedicated  mini-computer  systems  it  is  possible  to  measure  frequency 
response  information  and  computationally  determine  the  modal  parameters.  As  a 
result  of  this  improved  computational  capability,  a  large  number  of  computa¬ 
tional  algorithms  have  been  developed  in  recent  years  for  computing  modal  inform¬ 
ation.  In  the  next  several  sections  each  technique  will  be  described  as  to  its 
implementation,  advantages,  and  disadvantages. 

Amplitude  Response  -  Perhaps  the  simplest  modal  estimation  procedure  is  to  mea¬ 
sure  the  magnitude  of  the  frequency  response  at  one  of  the  natural  frequencies. 
The  natural  frequencies  for  this  simple  case  can  be  determined  by  choosing  the 
frequencies  where  the  magnitude  of  the  frequency  response  reaches  a  maximum.  If 
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the  damping  coefficient  is  known,  the  modal  coefficient  is  given  by  the  following 
relationship: 


B 


Pq 


peak 


(1) 


The  damping  can  be  estimated  by  a  number  of  different  techniques,  the  most  common 
being  the  half  power  points  or  by  measuring  the  rate  of  change  of  the  phase  angle 
through  the  resonance  peak  (99). 


If  the  damping  coefficient  is  unknown,  the  terms  on  the  right  hand  side  of 
Equation  1  can  be  lumped  together  and  used  as  the  modal  coefficient.  In  other 
words,  the  total  response  can  be  used  as  the  modal  coefficient.  In  fact,  this  is 
frequently  done  since  the  resulting  mode  differs  only  by  a  scale  factor.  This 
assumption  depends  upon  the  damping  coefficient  being  a  fixed  global  property  of 
the  system. 

The  only  advantage  of  this  technique  is  that  a  minimum  amount  of  equipment  can  be 
used.  If  the  structure  is  excited  with  a  sine  wave  at  the  frequency  of  the 
resonance  being  investigated  and  the  resulting  response  is  filtered  to  eliminate 
the  harmonic  distortion,  then  a  simple  voltmeter  can  be  used  to  measure  the  modal 
coefficient.  An  oscilloscope  can  be  used  to  determine  the  phase.  The  main 
disadvantage  of  this  technique  is  that  it  does  a  very  poor  job  of  separating 
modes. 
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Quadrature  Response  -  In  order  to  better  separate  the  modes,  the  quadrature 
response  can  be  measured.  The  quadrature  response  is  the  ninety  degree  out-of¬ 
phase  response  of  the  structure  displacement  or  acceleration  with  respect  to  the 
input  force. 

The  quadrature,  or  imaginary  component  of  the  frequency  response  of  the  system 
for  a  single  degree  of  freedom  reaches  a  maximum  at  the  undamped  natural  fre¬ 
quency  of  the  system  and  approaches  zero  away  from  the  resonance  frequency.  It 
is  this  characteristic  which  helps  to  separate  adjacent  modes. 

Again  if  the  damping  is  known,  the  modal  coefficient  can  be  computed  from  the 
quadrature  frequency  response  by  the  following  relation: 


When  the  damping  is  unknown,  by  the  same  argument  as  before,  the  quadrature  part 
of  the  response  is  used  as  the  modal  coefficient. 

For  cases  where  the  system  is  lightly  damped  or  the  modes  are  well  separated,  the 
quadrature  response  is  a  very  good  technique. 

The  quadrature  response  technique  has  been,  and  still  is,  one  of  the  more  popular 
techniques  for  determining  modal  coefficients  and  is  used  extensively  with  the 
multiple  shaker  excitation  approach.  For  troubleshooting  cases,  where  it  is  not 
necessary  to  generate  a  modal  model,  the  quadrature  response  technique  will 
almost  always  give  acceptable  results.  Typically,  the  frequency  of  the  peak 
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quadrature  response  is  chosen  from  a  typical  measurement  or  by  constructing  a 
summation  of  power  spectrums  of  the  quadrature  responses  from  a  number  of  meas¬ 
urements  (Figure  25  and  26).  Once  the  frequency  is  known,  the  value  of  the 
quadrature  response  at  that  frequency  can  be  determined  from  the  measured  fre¬ 
quency  response  data  at  all  points  of  interest  on  the  structure. 

The  damping  can  be  estimated  by  one  of  the  multiple  degree  of  freedom  techniques 
described  later  or  can  be  estimated  using  the  rate  of  change  of  the  phase  angle, 
half  power  points,  or  magnif ication  factor  (Q)  method. 


Circle  Fit  -  The  original  approach  for  this  method  was  developed  by  Kennedy  and 
Pancu  (96)  for  systems  with  hysteretic  damping  characteristics.  As  will  be 
shown,  the  method  can  be  extended  to  the  viscous  damping  cases  and  also  can  be 
extended  to  include  complex  modes  by  using  Equation  13  with  the  following 
assumptions: 


1.  The  modes  are  only  weakly  coupled  in  the  range  where  one  mode  is  predominant. 

i 

The  contribution  of  lower  and  higher  modes  can  be  approximated  by  a  complex  j 

constant  (R  +  jl).  j 

2.  The  system  is  relatively  lightly  damped. 

1 

The  frequency  response  of  the  structure  in  the  frequency  range  where  the  r-th 
mode  is  predominant  can  be  written  as: 


‘W'Vpqr 

-«r  +  i  (fcj-w  ) 


+  R  +  jl 


(3) 
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where  R+jl  includes  the  contribution  of  the  term  associated  with  the  conjugate 
eigenvalue.  If  the  complex  constant  is  neglected  and  the  magnitude  of  the  mode 
is  set  to  unity,  (U  =0  and  V  =  -1  for  a  single  degree  of  freedom,  w>0)  the 
following  relations  can  be  obtained: 
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In  other  words,  the  contribution  of  one  mode  to  the  general  response  can  be 
represented  in  the  Argand  plane  as  a  circle  (Figure  27).  Taking  into  account  the 
complex  constant  and  the  complex  modal  coefficients,  the  coordinates  of  the 
center  can  be  calculated  as: 


and  the  diameter  as: 


u  v 

V  2«f  2*r  ' 


Ju  2  T 

V  wpqr  ♦ 


pqr  +  pqr 


(7) 
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The  complex  modal  displacement  vector  expands  or  reduces  the  diameter  and  rotates 
the  circle  in  the  Argand  plane.  On  the  other  hand,  the  complex  constant  (R+jl) 
will  translate  the  center  of  the  circle  in  the  Argand  plane  (Figure  28). 


A  measure  of  the  accuracy  of  this  method  is  given  by  the  shape  of  the  frequency 
response  in  the  region  of  the  resonance:  the  more  circular  the  curve,  the  more 
accurate  the  result. 

It  was  shown  in  Reference  99  that  the  resonance  frequency  could  be  found  where 
the  variation  of  the  phase  angle  as  a  function  of  frequency  is  a  maximum: 

*2<t> 

—  =  o  (< 

The  damping  ratio,  fr  ,  can  also  be  determined  from  the  fitted  circle.  By 
locating  the  two  frequencies  wl  andw2  at  +90  degrees  with  respect  to  the  damped 
natural  frequency  (Figure  28),  the  damping  can  be  calculated  by  the  following 
relation: 


co  j  -  (o  2 

?r=  2wr 


(10) 


The  diameter  of  the  circle  is  proportional  to  the  modulus  of  the  residue: 


d- 


(11) 


The  phase  angle,  apqr,  of  the  complex  modal  coefficient  can  be  calculated  by 
passing  a  straight  line  through  the  point  of  the  resonance  frequency,  «r  ,  and 
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the  center  of  the  circle.  The  angle  this  line  makes  with  the  imaginary  axis  is 
equal  to  the  phase  angle  of  the  complex  modal  coefficient: 


Circle  fitting  typically  is  the  next  level  of  parameter  estimation  above  quadra¬ 
ture  response.  It  does  a  better  job  of  separating  coupled  modes  than  the 
quadrature  technique,  but  it,  like  most  of  the  more  complicated  methods,  can 
diverge  and  give  very  poor  answers.  In  general,  the  method  is  fast  and  can  be 
used  to  obtain  complex  modes,  but  in  order  to  get  the  best  possible  results  it 
should  be  used  interacti vely.  The  center  frequency  and  bandwidth  used  in  the 
circle  fit  can  be  varied  depending  upon  the  amount  of  noise,  the  coupling  of 
modes,  and  the  damping  of  the  mode.  This  choice  of  data  points  utilized  in  the 
circle  fit  gives  different  answer  and  the  best  answer  becomes  a  judgement.  As  a 
result,  the  best  answers  are  obtained  by  a  skillful  operator. 

The  normal  procedure  for  using  the  circle  fit  is  to  first  determine  the  natural 
frequency  of  the  system  using  any  one  of  a  number  of  different  procedures.  The 
peaks  in  the  quadrature  response  or  the  peaks  in  a  summation  of  power  spectrums 
(constructed  from  the  quadrature  response  of  all  of  the  measurements)  are  very 
good  indicators. 

Using  the  least  squares  Circle  Fit  algorithm,  a  circle  can  be  interactively  fit 
to  the  measured  frequency  response  data  at  the  designated  natural  frequency.  The 
damping  ratio  ( fr )  as  well  as  the  modal  coefficient  (amplitude  and  phase)  are 
defined  by  the  location,  diameter,  and  orientation  of  the  circle. 
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In  order  to  illustrate  one  of  the  more  serious  problems  with  circle  fitting,  the 
following  example  will  be  used.  The  first  two  modes  of  a  cantilever  beam  will  be 
determined  using  circle  fitting.  The  mode  shapes  for  the  beam  are  shown  in 
Figure  29.  If  an  excitation  force  is  applied  at  point  one  on  the  beam,  the 
measured  frequency  response  plots  between  point  one  and  all  other  points  are 
shown  in  Figure  30.  In  this  figure  the  resonance  frequencies  are  marked  with  a 
symbol  and  the  bandwidth  used  in  the  circle  fit  are  shown  by  the  double  line.  The 
problem  which  is  being  illustrated  shows  in  the  measurement  at  point  2.  At  point 
2  the  modal  contribution  of  mode  2  is  nearly  zero.  The  circle  fit  in  this  case  is 
really  a  fit  of  the  skirt  of  the  first  mode.  Instead  of  getting  a  value  near 
zero,  a  very  large  value  is  obtained.  Due  to  this  type  of  problem  and  due  to  bad 
estimates  caused  by  noise,  it  is  necessary  to  interactively  fit  the  data  with  the 
Circle  Fit  algorithm. 

Multiple  Degree  of  Freedom  Approximations 

In  studies  carried  out  by  Klosterman  (99),  Van  Loon  (208),  and  Richardson  (170, 
171,  227)  a  derivation  is  given  for  the  general  formula  of  the  frequency  response 
of  a  multiple  degree  of  freedom  system  with  viscous  or  hysteretic  damping. 

For  general  viscous  damping,  the  frequency  response  for  a  multiple  degree  of 
freedom  mechanical  system  can  be  written  as: 


where 


x  =  response  at  point  p, 

Fq  =  input  at  point  q, 

j «  vcr, 

sr  =  eigenvalue  of  r-th  mode  =  8r  +  jwdr 

=  damped  natural  frequency  of  the  r-th  mode, 

f>r  =  decay  rate  of  r-th  mode  (damping), 
a 

pqr  =  complex  residue  of  r-th  mode  =  Upqr  +  Jvpqr* 


Continuous  systems  have  t:.  infinite  number  of  degrees  of  freedom,  but,  in 
general,  only  a  finite  number  of  modes  can  be  used  to  describe  the  dynamic 
behavior  of  a  system.  The  theoretical  number  of  degrees  of  freedom  can  be 
reduced  by  using  a  finite  frequency  range  The  ^reduency  response  could 
be  separated  into  three  partial  sums,  each  covering  the  modal  contribution 
corresponding  to  modes  located  in  the  frequency  ranges  (0,ffl),  (fa,fb  )  and 
(fb.  °°)  (Figure  13).  In  the  frequency  range  of  interest,  the  modal  parameters 
can  be  estimated  to  be  consistent  with  Equation  13.  In  the  lower  and  higher 
frequency  ranges,  residual  terms  can  be  included  to  handle  modes  in  these  ranges. 
In  this  case,  Equation  13  can  be  rewritten  as: 


where 

r  =  lower  mode  index  of  the  frequency  range  of  interest, 

rb  =  upper  mode  index  of  the  frequency  range  of  interest, 

L  =  lower  residual  term,  and 

pq 

=  upper  residual  term. 

pq 


(14) 
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Frequently,  the  lower  residual  term  is  called  the  inertia  restraint,  and  the 
upper  residual  term  is  called  the  residual  flexibility.  These  can  be  written  as: 


Lpq* 


is. .  -  *  £=li! 

-2  IfeU-r 


(15) 


2pq“Re 


(16) 


where 


Re  z  =  real  part  of  a  complex  number  z, 

Y 

pq  =  inertia  restraint,  and 
Zpq  =  residual  flexibility. 


Therefore,  Equation  13  can  be  rewritten  as: 


pq 

«2  r-r, 


„UwSr  jw-  sr  J 


+  z, 


pq 


(17) 


An  alternate  way  to  write  the  frequency  response  in  terms  of  its  undamped  natural 
frequency  and  damping  coefficient  is: 


where  by  definition. 


Bpqr  +  i' 


P  -  P*  ,  T*  ~Pqr  1  (“r  )  BPqf  a  7 
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;  (5r  Upqr  *  °V  Vpqr) 


The  above  terms  have  the  units  of  compliance  and  as  a  result  the  numerator  of 
Equation  18  is  the  "complex  compliance".  For  the  case  of  proportional  damping, 
the  equation  for  the  frequency  response  has  the  more  classical  form: 


Ap  _  pq  ,  _ 2Z _ 

F«  ’-(4)2*JJr(=r) 


where 


B _ _ _ _ _  displacement  output 

pqr  -  modal  compliance - force" input 


Many  of  the  parameter  estimation  techniques  that  are  used  will  assume  that  only 
one  mode  exists  in  the  range  of  interest  and  all  of  the  other  modes  appear  as 
residual  terms.  For  this  case  Equation  14  can  be  rewritten  as: 


y  Y'  a  A* 

p  -  -p  ,  -a  t  pq 

F  ,  ,2  iw-i  .  •  pq 

q  w  1  jw  -  s 


or  for  the  case  of  proportional  damping  as: 


"(wr)  +  i2rf(^) 


Several  of  the  curve  fitting  cases  which  will  be  discussed  utilize  the  unit 
impulse  response  of  the  system.  The  unit  impulse  response  is  the  Fourier  trans¬ 
form  of  the  frequency  response.  Therefore,  a  mathematical  expression  for  the 
unit  impulse  response  can  be  obtained  by  a  Fourier  transform  of  Equation  13: 


f 


(24) 
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The  remainder  of  this  discussion  in  this  report  will  involve  experimentally 
determining  the  modal  parameters  by  using  a  parameter  estimation  technique  based 
on  one  of  the  expressions  presented  in  this  section. 

For  cases  where  single  degree  of  freedom  approximations  do  not  give  satisfactory 
answers,  the  modal  parameters  can  be  determined  directly  by  curve  fitting  either 
Equation  17  to  frequency  response  information  or  Equation  24  to  unit  impulse 
information.  Due  to  the  nonlinear  nature  of  these  two  equations,  the  parameter 
estimation  schemes  are  difficult  to  implement.  In  this  section  several  different 
multiple  degree  of  freedom  algorithms  will  be  presented. 

Frequency  Domain  Algorithms  -  The  multiple  degree  of  freedom  frequency  domain 
algorithms  presented  are  some  of  the  techniques  that  are  currently  being  devel¬ 
oped.  The  most  promising  algorithms  solve  Equation  17  in  a  least  squares  sense. 

Restating  Equation  17:  x  y 

p  =  re  +  7 
'  *>2  w 

£  r  uw*)vw  ,  uw-'vp»  i 

+  ^  l_-t5r  +  i  (w-  wpr)  -5r  +  j(fa>  +  wpf.)  J  (25) 

r“r8 

This  equation  contains  4n+2  unknown  parameters:  5r  ,  wdr  ,  Upqr  ,  Vpqr  for 
each  of  n  modes  in  the  frequency  range  of  interest,  and  two  parameters  Ypq  and 
Z  to  handle  the  residual  contribution  of  lower  and  higher  modes.  It  is  obvious 

pq 


no 
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that  the  equation  could  be  solved  given  4n+2  pieces  of  information,  but  it  would 
not  be  wise  to  do  so,  because  measurement  errors  would  usually  cause  the  solution 
to  be  useless.  In  fact,  the  equations  are  nonlinear  in  6r  and  wrfr  ,  which  means 
that  an  iterative  solution  is  necessary.  Getting  a  solution  of  this  form  to 
converge  to  a  unique  answer  in  the  presence  of  noise  would  be  very  difficult.  In 
order  to  handle  the  noise  problem,  a  least  squares  solution  can  be  used. 

Let  G  represent  the  experimental ly  determined  frequency  response,  and  H  repre¬ 
sent  the  mathematical  model  Equation  5.  The  data  varies  only  with  frequency, 
and  is  known  at  M  frequencies: 


experimental  f  fl/2,../n 


The  model  depends  not  only  on  frequency,  but  also  on  the  modal  parameters,  which 
will  be  represented  by  the  4n+2  components,  -f.  ,  of  a  vector  7  : 


(  Fq  )  m°del  =  H(f,  7  )  =  H(f,  7l,...,  74n+2) 


The  error  in  the  fit  at  frequency  k  is 


Efcfr)  =  G(fk)  -  H(fk,  7) 


and  the  functional  to  be  minimized  for  the  least  squares  process  is 


M  m 

EfE  Ek  (7)  Ek*(7>  -£  HEk(7)ll2 
k  -  1  k  -  1 
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If  the  derivatives  of  this  error  functional  with  respect  to  the  unkown  variables 
are  set  to  zero,  then  there  are  4n+2  equations  available  to  determine  the 
unknowns: 

(; 

These  equations  are  nonlinear  in  5r  andw^  ,  and  so  a  solution  must  be  found  by 
an  iterative  aproximation,  starting  from  initial  values  for  6r  and  .  This 
means  calculating  a  ASr  and  for  each  interaction  step.  The  iteration  can 

be  stopped  when  the  process  has  converged. 

Equations  28  can  be  used  in  two  different  ways: 

1.  A  linear  least  squares  method  calculating  2n+2  parameters  (Upqr  ,  Vppr  , 
Ypq  ’  Zpq  startin9  with  ^ixed  values  of  6r  and  wdr  that  are  determined  by 
some  other  method,  and  which  are  constant  throughout  the  solution,  or 

2.  An  iterative  least  squares  for  all  of  the  modal  parameters. 

Some  details  of  an  algorithm  with  both  solution  possibilities  are  given  in 
Reference  208.  This  program  has  been  implemented  in  minicomputer  based  Fourier 
analyzers,  so  that  the  parameter  estimation  process  can  be  controlled  interac¬ 
tively.  If  the  eigenvalues  are  not  fixed,  the  solution  is  best  done  interac¬ 
tively  since  the  solution  will  frequently  diverge  if  the  starting  estimates  for 
the  eigenvalues  are  poorly  chosen.  The  program  has  a  built-in  algorithm  to 
recognize  a  divergent  condition  and  will  eliminate  the  diverging  mode  and  try  to 
continue  the  solution  to  convergence  using  the  remaining  modes. 
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Linear  Least  Squares  Algorithm  for  Residues  -  If  the  eigenvalues  are  known  or  can 
be  chosen,  then  the  eigenvectors  (modal  coefficients)  can  be  determined 
directly,  because  Equations  28  reduces  to  a  set  of  linear  simultaneous  equations. 
Since  the  solution  is  based  on  a  least  squares  development,  the  data  can  be 
weighted  to  optimize  the  results.  The  type  of  weighting  that  should  be  used 
depends  on  the  characteristics  of  the  measurement.  For  example,  for  very  lightly 
damped  data,  it  is  desirable  to  weight  the  off-resonance  data.  The  reason  for 
this  is  that  the  amplitude  is  sharply  peaked  at  the  resonance,  and  hence  the  most 
significant  errors  due  to  "leakage"  and  nonlinearity  will  occur  at  or  near  the 
resonances.  Data  near  weak  resonances  may  be  more  heavily  weighted  to  help 
extract  those  modes.  Areas  of  low  coherence  between  input  forces  and  output 
response  should  be  weighted  very  lightly. 

It  is  important  to  include  local  modes  in  those  measurements  where  they  are 
active.  A  local  mode  is  a  mode  for  which  the  modal  displacement  is  nearly  zero  at 
all  points  on  the  structure  except  in  a  very  small  region.  (The  first  bending 
mode  of  a  flagpole  on  a  battleship,  for  example.) 

The  least  squares  modal  coefficient  calculation  is  very  straightforward  and  will 
normally  give  a  solution  if  a  good  set  of  eigenvalues  have  been  determined.  The 
eigenvalues  are  usually  considered  to  be  global  properties  of  the  structure,  and 
should  therefore  be  independent  of  the  choice  of  the  measurement  point.  Varia¬ 
tion  of  the  eigenvalues  from  point  to  point  can  be  caused  by  measurement  problems 
or  nonlinearities  in  the  structure.  On  linear  structures,  the  assumption  that 
the  eigenvalues  are  global  properties  is  valid,  and  this  condition  can  be 
enforced  in  the  parameter  estimation  scheme.  If  the  curve  fitting  process  allows 
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the  eigenvalues  to  change  with  measurement  location,  they  may  vary  due  to  noise, 
measurement  errors,  and  nonlinearities,  and  will  give  confusing  results. 

It  is  important,  therefore,  to  be  able  to  obtain  a  set  of  global  eigenvalues  for 
the  structure  being  analyzed  if  good  modal  coefficients  are  to  be  estimated  using 
this  approach.  This  normally  requires  that  a  good  estimate  of  the  number  of 
degrees  of  freedom  be  obtained.  Also  good  measurement  techniques  must  be  used  in 
order  to  prevent  the  eigenvalues  from  changing  as  a  function  of  measurement 
process. 

Linearized  Least  Squares  Algorithm  for  all  Modal  Parameters  -  For  cases  where  it 
is  not  possible  to  test  the  structure  so  that  the  eigenvalues  remain  constant,  it 
is  necessary  to  allow  the  eigenvalues  to  change  as  a  function  of  the  measurement 
position.  For  example,  when  a  very  light  structure  is  tested  using  transducers 
with  significant  mass,  the  eigenvalues  change  as  the  transducers  are  moved  around 
on  the  structure,  because  of  mass- loading  of  the  structure.  If  the  eigenvalues 
are  allowed  to  change,  there  are  An+2  unknown  parameters  in  the  curve  fitting 
process.  From  statistical  considerations,  as  the  degrees  of  freedom  increase  the 
amount  of  data  that  is  necessary  to  obtain  the  same  confidence  levels  on  the 
estimated  parameters  likewise  increases. 
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The  Gauss-Newton  procedure  is  used  to  linearize  the  estimation  process.  Equation 
17  is  expanded  in  terms  of  a  Taylor  series,  and  then  the  higher-order  terms  are 
neglected,  using  the  assumption  that  the  changes  in  the  parameters  from  their 
initial  (or  "starting")  values  will  be  small.  The  result  is: 


aij 

H(f/y)  «  H  (f,  7JV)  +  l  ^.(f,7$v)A7. 
i“1  M 


where  tsv  =  vector  of  starting  values  of  the  modal  parameters,  and  =  7.- 

(7.)  =  the  change  in  the  i-th  parameter. 

The  error  at  frequency  fk  is  now 


Ek  (7)  -  G(fk)  -  H(fk,  V  -  £  §*-  ,f.  7iv)  A7j 


which  is  linear  in  all  of  the  parameters  7.  ,  because  7$y  is  a  constant  vector. 
The  derivatives  of  H  with  respect  to  7-  are  created  by  a  formal  differentiation 
of  Equation  17,  and  are  evaluated  at  7sy  .  The  results  are  functions  of  only 
frequency: 

AW-giftT  J 


so  the  functional  to  be  minimized  is 
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By  equating  to  zero  the  derivatives  of  Et  with  respect  to  the  results  are 
linear  equations  for  the  values  of  a?-.  These  are  solved  at  each  iteration  step, 
and  the  "starting"  values  vector  is  updated, 

*fsv*r»ew*  *f»v*oW  +  ^  (32) 

in  preparation  for  the  next  iteration.  The  iteration  is  stopped  if  the  least 
squares  error,  o  ,  satisfies  the  criteria: 

O.99o0,d<anew<1.°1oold  (33) 

The  iteration  procedure  is  constructed  so  that  any  of  the  eigenvalues  can  be 
fixed  and  the  remaining  parameters  iterated.  If  any  one  mode  starts  to  diverge, 
it  can  be  fixed  at  the  starting  value  or  dropped  from  the  list  of  eigenvalues. 

The  most  common  form  of  divergence  is  for  one  mode  (which  typically  has  a  very 
small  modal  coefficient)  to  start  to  diverge.  If  this  is  allowed  to  continue, 
the  complete  process  will  diverge. 

It  is  important  for  the  nonlinear  solution  to  have  a  very  good  set  of  starting 
values  and  for  the  data  to  have  minimum  distortion  due  to  measurement  errors 
(such  as  "leakage"  errors  associated  with  the  Fourier  transform  (12,  13)). 

Time  Domain  Multiple  Degree  of  Freedom  Algorithm  -  In  the  time  domain  the  unit 
impulse  response  of  the  viscous-damped  linear  system  is  given  by  Equation  34. 
Experimental ly,  the  unit  impulse  can  be  determined  by  measuring  the  frequency 
response  and  computing  the  inverse  Fourier  transform. 
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hMW  =  2  Re  J  £  <UW  ,+j  Vwrle'8rV  j  ( 34  ) 

In  this  equation,  the  unit  impulse  is  described  in  terms  of  4n  unknown  param¬ 
eters.  The  equation  is  nonlinear  in  terms  of  sr  and  a>dr  .  The  Complex  Exponen¬ 
tial  algorithm  and  the  least  squares  Complex  Exponential  algorithm  can  be  used  to 
solve  for  the  four  parameters  of  each  mode. 

Complex  Exponential  Algorithm  -  A  collocation  solution  to  the  parameter  estima¬ 
tion  problem  is  developed  in  Reference  228.  The  solution  technique  is  referred 
to  as  the  Complex  Exponential  algorithm  and  uses  the  Prony  method  of  solution. 

It  should  be  noted  that  4n  pieces  of  information  are  used  to  determine  the  4n 
unknowns.  The  equations  are  nonlinear  and  an  iteration  process  is  used  to  obtain 
a  solution. 

The  Complex  Exponential  algorithm  will  compute  the  Appr  and  Sr  to  fit  the  unit 
impulse  response  hpq  as  given  in  Equation  34.  Since  the  equation  is  nonlinear  in 
Sr,  the  values  of  Sr  are  determined  by  an  iterative  procedure.  The  equations  are 
linear  in  the  parameter  Appr  ,  so  these  coefficients  are  determined  by  solving  a 
standard  system  of  linear  simultaneous  equations. 

This  algorithm  is  a  collocation  parameter  estimation  technique;  there  are  4n 
degrees  of  freedom,  and  it  uses  4n  samples  of  hp^.  In  other  words,  there  is  no 
smoothing  involved  in  the  estimation  process,  as  there  is  in  a  least  squares 
algorithm.  Most  collocation  estimation  routines  will  diverge  if  the  form  of  the 
data  does  not  satisfy  the  assumed  model.  Due  to  numerical  limitations,  the 
Complex  Exponential  algorithm  tends  to  compensate  for  this  deviation  and  will 


117 


give  a  reasonable  fit  even  if  it  cannot  match  the  underlying  form  of  the  actual 
data.  In  other  words,  numerical  errors  in  the  calculation  prevent  the  solution 
from  passing  exactly  through  the  data  points,  with  the  result  that  the  solution 
process  is  relatively  robust. 

When  the  impulse  response  function  is  sampled  at  equally-spaced  instants  in  time, 
Equation  34  can  be  rewritten  as: 

hpq(tk,  =  |t[AMre$rkT+Awre  *’kT]  (35) 


hpq  *  £  [Apqr  *r  +  ^pqr  ^  J 

r=1 

where 

N  =  number  of  nodes  in  the  frequency  range  (0,  1/2T), 
T  =  sampling  interval, 


S-T 

X  =  e  r 


(36) 


(37) 


Now,  pq  is  a  real  valued  function;  that  is: 


*  2Re  |  ",  Apqr  *r 


1* 


(38) 


A 


A  collocation  solution  to  the  set  of  equations  obtained  from  Equation  38  for 

different  values  of  tk  can  be  found  using  Prony's  method.  A  new  set  of  real- 

2N 

valued  unknowns  a.  i  =  ^  are  introduced  which  are  the  coefficients  of  the  terms 
in  the  polynomial  equation 


N  2N  . 

It  (x-x)<x-x;>=  Z  akx  ~°  ^39) 

r=1  k=0 

The  2N  roots  of  Equation  39  are  the  complex  exponentials  esrT  and  the  coeffi¬ 
cients  ak  are  called  the  autoregression  coefficients  of  the  assumed  model  in 
Equation  35. 

Multiplying  Equation  38  by  the  coefficients  a^  and  adding  the  equations  (we 
suppress  the  subscripts  p  and  q  on  h  and  A): 


^  W2a0R«(2ArX!n4<)} 
•lhW-*1  Re{2\Xrm+1) 
«2h  W2*2  "•{za^"*2} 

akMtm+k)  =  2ak  RefzV^} 


•2Nh‘W2N)-2«2NR«{£ArXrm+2N} 

2N  2N 

t  »kh  ^m+k*  "  2L  »kRB 
k-0  k-0 

r-1  4 

-  R#|  L  ArXjn  (2?  .kX_k  ) 

I  r-1  rT  k-0 


i 
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According  to  equation  39,  this  last  term  must  be  zero,  so: 


£akh*tm+k*  =  0  form  =  0,1,2,...  (40) 

k=0 


This  equation  indicates  that  there  are  only  2N  linearly  independent  amplitudes  in 
the  sampled  impulse  response.  If  the  autoregression  coefficients  are  normalized 
by  choosing  a£^  *  1,  then 


2N-1 

t  akh  ^m+k*  '  ”  h<tm+2N> 
k=0 


(41) 


Therefore  there  are  2N  linear  equations  which  can  be  written  for  the  variables 
a^,  and  these  are  computed  directly  from  the  measured  unit  impulse  response.  In 
practice,  the  values  of  m  that  are  used  are  typically  o<  m<2N  ,  but  any  set  of 
2N  can  be  used.  Having  solved  for  the  a^  ,  the  roots  of  Equation  39  can  be  found 
using  an  iterative  polynomial  solver,  and  the  eigenvalues  can  be  determined  from 
Equation  37. 


Once  the  eigenvalues  are  determined,  the  resulting  modal  coefficients  (residue 
terms)  can  be  calculated  from  the  following  relation: 

N 

S  ['WXfA'pq.(V)k]-l>(,0  <«*) 

r*0 

These  equations  are  linear  in  the  values  of  Appr  ,  as  in  the  case  of  the  previous 
frequency  domain  solution. 
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Equations  41  and  42  involve  Toeplitz  and  Van  der  Monde  matrix  forms,  which  can  be 
solved  in  a  much  more  convenient  manner  than  standard  simultaneous  linear  equa¬ 
tion  techniques,  such  as  Gauss  elimination.  Expanding  Equation  41  in  matrix  form 
(here  the  typical  selections  for  m  are  used): 

l,(t2N-1>  h<t2N>  h,t2N+1)  •  -  htt4N-2) 

h(t2N-2)  h<t2N-1 1  h,12N)  •  •  •  h(t4N-3' 

^l2N-3^  hl*2N-2^^t2N-1^  **^4N-4^ 

h(tQ)  h(tj)  Mtj)  •  ■  ■  h^2N-t^ 

Both  the  Toeplitz  coefficient  matrix  and  the  constant  vector  are  composed  of  the 
unit  impulse  response.  The  last  row  of  the  coefficient  matrix  is  the  initial 
portion  of  the  unit  impulse  response.  The  next  to  last  row  is  the  unit  impulse 
shifted  one  sampling  interval  later  in  time,  and  so  on.  As  a  result  of  the 
shifting,  the  elements  of  the  matrix  are  identical  along  any  descending-to- 
the-right  diagonal.  The  Toeplitz  matrix  solution  can  be  accomplished  in  computer 
memory  space  on  the  order  of  N  locations  versus  N  squared,  and  a  computation  time 
on  the  order  of  N  squared  versus  N  cubed,  compared  to  a  standard  matrix  solution. 


The  Van  der  Monde  matrix  equation  is  derived  from  Equation  42.  In  expanded  form 
it  is 


In  this  case  each  row  in  the  matrix  is  a  higher  power  of  the  same  components  as  in 
the  previous  row.  It  also  can  be  solved  in  much  less  time,  with  less  computer 
memory,  than  the  general  case.  The  details  of  the  Complex  Exponential  algorithm 
can  be  found  in  Reference  228. 

The  Complex  Exponential  algorithm  has  the  advantage  that  the  nonlinear  solution 
for  the  eigenvalues  is  computationally  straightforward.  Once  the  eigenvalues 
have  been  estimated,  the  modal  coefficients  can  be  directly  determined,  as  was 
the  case  with  the  frequency  domain  solution.  Since  it  requires  no  starting 
values,  it  is  easy  to  use  and  is  a  completely  "blind"  technique.  In  order  to 
obtain  a  solution,  it  is  only  necessary  to  supply  the  algorithm  with  the  impulse 
response  function  and  the  expected  number  of  modes  to  be  found  in  the  data. 

One  of  the  major  problems  with  this  technique  is  that  of  determining  the  number 
of  modes  in  the  data.  For  systems  with  light  damping  and  widely  spaced  modes, 
the  most  convenient  method  for  estimating  the  number  of  modes  from  the  measured 
frequency  response  data  is  by  a  visual  inspection.  Of  course,  data  of  this  type 
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can  be  very  conveniently  analyzed  using  one  of  the  simpler  single  degree  of 
freedom  techniques.  For  closely  coupled  systems  with  high  modal  density,  it  is 
difficult  to  estimate  the  number  of  degrees  of  freedom  visually.  Another  compli¬ 
cating  factor  is  that  the  algorithm  needs  extra  degrees  of  freedom  ("compu¬ 
tational"  modes)  to  compensate  for  noise  or  distortion  in  the  data.  A  good  rule, 
based  upon  experience,  is  to  input  one  and  one-half  times  the  number  of  modes 
that  are  expected. 

A  second  characteristic  of  the  algorithm  is  that  a  nonuniform  distribution  of 
modes  across  the  frequency  range  causes  the  program  to  miss  modes  in  the  areas  of 
high  modal  density.  For  this  case,  it  will  calculate  "computational"  modes  in 
areas  of  low  modal  density,  and  not  enough  modes  in  the  areas  of  high  modal 
density.  If  a  larger  number  of  modes  is  specified,  the  algorithm  will  eventually 
find  the  desired  number  of  modes  in  the  areas  of  high  density,  but  will  compute  a 
large  number  of  "computational"  modes.  Sometimes  it  is  difficult  to  separate  the 
real  modes  from  the  "computational"  modes.  The  best  way  to  minimize  this  problem 
is  to  use  a  zoom  Fourier  transform  to  measure  the  frequency  response  in  the 
regions  of  high  modal  density,  and  then  use  the  Complex  Exponential  algorithm  on 
the  banded  frequency  response  data. 

Zoom  Fourier  transform  data  can  be  handled  very  conveniently  with  the  Complex 
Exponential  algorithm  by  Fourier-transforming  the  banded  frequency  response  data 
into  the  time  domain.  The  resulting  filtered  impulse  response  can  be  fitted  with 
the  Complex  Exponential  algorithm.  In  this  case  the  frequencies  computed  by  the 
algorithm  are  shifted  by  the  frequency  at  the  beginning  of  the  zoom  range  (Figure 
31).  The  zoom  Fourier  transform  also  helps  to  reduce  distortion  errors  in  the 
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frequency  response  measurement  due  to  "leakage",  which  is  a  rather  significant 
source  of  error  with  the  Complex  Exponential  algorithm. 


Mathematical ly,  there  is  a  rather  straightforward  way  to  determine  the  number  of 
modes  in  a  measurement  when  using  the  Complex  Exponential  algorithm.  It  consists 
of  determining  the  rank  of  the  coefficient  matrix  used  in  calculating  the  eigen¬ 
values.  This  can  be  done  by  varying  the  number  of  potential  modes  and  computing 
the  value  of  the  determinant  of  the  coefficient  matrix.  Theoretically,  when  the 
specified  number  of  modes  exceeds  the  actual  number  of  modes  the  matrix  is 
singular.  If  the  determinant  is  evaluated  repeatedly  for  increasing  choices  of 
the  number  of  modes,  the  determinant  rapidly  falls  to  zero  after  the  actual 
number  of  modes  is  exceeded.  With  practical  data,  noise  causes  the  value  of  the 
determinant  to  decrease  gradually,  and  it  typically  will  never  reach  exactly 
zero.  Figure  32  shows  a  schematic  diagram  of  this  behavior.  It  becomes  a  matter 
of  judgement  as  to  how  close  the  determinant  should  be  to  zero.  Despite  this 
limitation,  the  procedure  is  very  useful. 

A  second  method  for  determining  the  number  of  modes  involves  using  different 
segments  of  the  impulse  response  to  compute  the  modal  coefficients.  The  variance 
in  the  computed  modal  coefficients  can  be  used  to  separate  the  true  modes  from 
the  "computational"  modes. 
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Figure  32.  Lent  Squares  Multiple  Degree  of  Freedom  Criterion 
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A  significant  source  of  error  concerning  the  use  of  the  Complex  Exponential 
algorithm  is  the  truncation  of  the  frequency  response  in  the  frequency  domain.  A 
sin(x)/x  type  of  distortion  error  is  induced  in  the  corresponding  impulse 
response.  This  results  in  distorted  estimates  for  damping  and  frequency 
(Figure  33). 

The  greatest  problem  with  using  the  Complex  Exponential  algorithm  for  modal 
parameter  estimation  is  that  a  new  set  of  eigenvalues  is  computed  for  every 
measurement,  when  in  theory,  the  eigenvalues  are  global  properties  of  the 
structure.  It  should  be  noted  that  for  any  given  measurement  there  are  a  number 
of  sets  of  eigenvalues  which  can  be  computed  by  the  Complex  Exponential 
algorithm,  depending  on  the  number  of  degrees  of  freedom  allowed.  Any  one  of 
these  sets  will  fit  the  data  to  within  very  close  limits.  From  a  plot  of  the 
curve  fit  data,  it  may  not  be  possible  to  distinguish  any  difference.  The 
resultant  set  of  data  that  will  be  computed  depends  on  small  differences  in  the 
measured  data  due  to  noise  or  distortion.  The  variation  between  the  computed 
modal  coefficients  can  easily  exceed  30%,  while  the  fit  to  the  frequency  response 
may  be  within  1%.  An  example  of  this  is  shown  in  Figure  34. 

In  summary,  the  Complex  Exponential  algorithm  is  a  very  simple  technique  to  use. 
It  does  an  exceptional  job  of  fitting  any  individual  measurement,  but  because  it 
can  compute  different  eignevalues  for  each  measurement,  it  has  limited  applica¬ 
bility  for  modal  measurements.  It  is  also  rather  sensitive  to  noise  since  it  has 
no  inherent  smoothing.  For  single  measurements  it  works  very  well,  so  it  appears 
to  be  generally  useful  for  single-input  and  single-output  systems. 
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Least  Squares  Complex  Exponential  Algorithm  -  The  Prony  algorithm  used  in  the 
Complex  Exponential  Algorithm  can  be  replaced  by  a  least  squares  method.  As 
usual,  we  write  the  sum  of  the  squares  of  the  errors,  differentiate  with  respect 
to  the  parameters,  and  set  the  result  to  zero,  in  order  to  find  the  values  of  the 
parameters  which  minimize  the  sum.  From  Equation  41,  the  error  in  the  fit  for 
the  m-th  equation  is: 


„  2N-1  , 

E2  =  {2;  akh(tm+k)  +  h  (tm+2N)l2 

K=0 

and  thus  the  total  error  is 


(44) 


M  9 

E  =  L-iE- 


(45) 


where  M  is  the  number  of  equations  that  are  used  in  the  fit.  The  derivatives  are 
given  by 


3E 

8ai 


M  2N-1 

0  =  1  h  [  £  *kh  (W  +  h  <tm+2N)] 
k=0 


(46) 


or 


2N>1  M  M 

k-0  *k  1  m=t  h  <t,n+i>  h  <tm+k>  1  +m=1  h  <tm+ ' *  h  (tm+2N)  ”  0 


Making  the  substitution 


(47) 


(48) 


the  resulting  equations  are 
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(49) 


2N-1 

lo 

or  in  matrix  form. 


R0,0  R0,1  R0,2 

•  R0,2N-1 

aO 

R0,2N 

R1,0  R1,1  R1,2  '  • 

■  R1,2N-1 

a1 

R1,2N 

R2,0  R2,1  R2,2  .  . 

.  R2,2N-1 

a 

2 

=  - 

R2,2N 

R2N-1,0  r2N-1,1  R2N-1,2  : 

■  R2N-1,2N-1 

a2N-1 

R2N-1,2N 

(50) 


When  M  becomes  very  large,  the  values  of  k  are  approximately  e^ual  to  the 
values  of  the  autocorrelation  function  Rhh  (i-k).  Here  the  lag  value  (i-k)  is 
the  true  lag  value  divided  by  the  sampling  interval,  T.  Because  the  auto¬ 
correlation  function  is  even,  that  is, 

Rhh  (i'k)  *  Rhh (k  i)  <51) 

the  equations  can  be  expressed  in  terms  of  the  autocorrelation  function  as 


Rhh(0)  Rhhd)  H^2)  .  .  .  Rhh(2N-1) 

-  i 

•o 

Rhh(2N)  " 

Rhh(1)  Rhh(0)  Rhh(1)  .  .  .  Rhh<2N-2) 

a1 

Rhh(2N-1) 

Rhh<2»  Rhh^J  Rhh<°>  •  •  •  Rhh<2N-3> 

*2 

-- 

Rhh(2»^2) 

R(2N-1)  R(2N-2)  R<2N-3) .  .  .  R^CO) 

_*2N-1 

>(1) 

The  least  squares  residues  (modal  coefficients)  can  be  computed  from  the  unit 
impulse  response  as  follows.  From  Equation  42,  the  unit  impulse  response  can  be 
written  in  terms  of  sine  and  cosine  functions.  Assuming  that  the  mean  value  of 
hpq  is  zero. 


WV  "  2  2  1  «Vk  lUppr  COS  (Wpr‘k)  +  Vwr  SIN  (Wp/k)] 


The  error  in  the  fit  to  the  k-th  point  of  the  impulse  response  is  chosen  as  the 
discrepancy  between  this  model  and  the  data,  gk  ,  for  k=0,l,2,...,M: 


^k  “  9k  ”  hpq^k* 


and  the  total  error  functional  associated  with  the  fit  of  M  samples  is 


M  N 


was  used 


E  ■  £., I,k  '  £l  “a  UW  ■  'W|2 


where  the  notation  Cjk  - e5i*k COS  tk)  Sjk  -  e5ilk  SIN 


aUpqi’  l-\  Cikl9k2S/CrkUpqr-SrkVpqr)J 


—  »  I  S-..  (  ®i,-2  2  (C  u  U -  S  l  V  11 

Z-.  °ik  k  *■  t"*rk  upqr  **rk  voar,J 


Let 


M 

Air=J=CikC,k 

_  M  _ 
B.  =  2  S 
,r  k=1 

M 

M 

Dir  =  'k=1CikSrk 

X,  =  2  ,  i 
1  k=t 

M 

v>- 

u  i  *  upqi 

Then  the  matrix  form  of  the  equations  for  the  residues  is 


[«][!]■[?] 


(57) 


where  A,  B,  and  0  are  N  x  N  submatrices,  Upq  ,  Vpq  ,  X,  and  Y  are  N  x  1  column 
vectors,  and  DT  is  the  transpose  of  D.  The  formal  solution  for  the  real  and 
imaginary  components  of  the  modal  coefficients  is 

[;]  ■[«]"  C 


(58) 


There  is  an  approximate  solution 


Upqr-VArr  >'pqr-Yr/Brr 


(59  a,b) 
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which  is  valid  when  the  diagonal  terms,  compared  to  the  off-diagonal  terms,  are 
very  large  in  the  coefficient  matrices  A  and  B,  and  the  elements  of  D  are  small. 

The  major  advantage  of  the  least  squares  version  of  the  Complex  Exponential 
algorithm  is  that  it  has  least  squares  elimination  of  noise.  Like  all  least 
squares  techniques  the  data  can  be  weighted  so  that  the  parameter  estimation  will 
favor  the  strongly  weighted  data.  For  cases  where  the  testing  procedures  gener¬ 
ate  eigenvalues  which  can  be  considered  global  properties  of  the  structure,  this 
algorithm  can  be  used  to  determine  a  weighted  least  squares  estimate  of  the 
eigenvalues.  All  of  the  measurements  can  be  used,  or  any  selected  combination  of 
measurements.  It  can  be  used  to  determine  overall  system  modes,  or  it  can  be 
used  on  any  subset  of  the  measurements  to  estimate  local  modes. 

The  least  squares  version  of  the  Complex  Exponential  algorithm  has  the  same 
problems  as  the  ordinary  Complex  Exponential  algorithm.  It  is  difficult  to 
estimate  the  number  of  modes  to  input  into  the  algorithm.  Again  the  rank  of  the 
matrix  given  in  Equation  50  can  be  used  to  estimate  the  number  of  independent 
modes  in  the  data,  as  can  the  least  squares  error  function.  The  least  squares 
error  is  large  when  too  few  modes  are  assumed  in  the  solution,  and  reduces  to 
some  small  value  determined  by  the  numerical  noise  when  too  many  modes  are 
assumed.  A  schematic  plot  of  the  error  as  a  function  of  the  number  of  assumed 
modes  is  shown  in  Figure  32.  As  can  be  seen  from  this  figure,  for  actual  data  the 
curve  gradually  approaches  the  noise  floor,  and  it  is  a  judgement  to  specify  the 
optimum  number  of  modes.  In  Figure  35  the  least  squares  error  is  shown  as  a 
function  of  the  number  of  assumed  modes  for  a  typical  structure. 
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In  general,  the  least  squares  version  of  the  Complex  Exponential  algorithm  does  a 
very  good  job  of  generating  a  set  of  eigenvalues  for  a  structure.  For  a  given 
choice  of  input  location  (exciter  position)  a  set  of  eigenvalues  will  be  gener¬ 
ated  which  will  do  an  excellent  job  of  fitting  all  of  the  measurements  taken  with 
the  exciter  position.  A  different  exciter  position  may  generate  a  different  set 
of  eigenvalues  and  eigenvectors.  At  the  present  time  an  engineers  judgement  is 
required  to  edit  the  sets  of  eigenvectors  generated  from  different  exciter  posi¬ 
tions  into  a  consistent  set  which  can  be  used  to  describe  the  structural  charac¬ 
teristics  of  the  system  being  analyzed. 

Mode  Enhancement 

Enhancement  of  one  mode  in  a  frequency  range  may  be  accomplished  by  a  technique 
that  is  based  on  the  same  principle  as  the  generation  of  normal  modes  for  the 
multiple-exciter  sine  test.  A  forced-response  function  is  created  by  computing  a 
linear  combination  of  a  set  of  frequency  response  functions  that  have  either  a 
common  response  location  or  a  common  exciter  location.  The  coefficients  of  this 
linear  combination  correspond  to  a  forcing  vector  applied  to  the  structure  at  the 
varying  locations  associated  with  the  set  of  frequency  response  functions  used. 
If  the  variation  is  in  the  exciter  location,  this  correspondence  is  direct;  if 
the  variation  is  in  the  response  locations,  then  the  correspondence  depends  on 
the  validity  of  assuming  that  the  structure  has  a  symmetric  frequency  response 
function  matrix  (that  is,  that  Maxwell-Betti  reciprocity  is  true  for  the 
structure). 
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When  the  vector  composed  of  the  coefficients  of  the  linear  combination  (the 
pseudo-forcing  vector)  is  approximately  equal  to  the  components  of  the  mode  shape 
for  the  mode  to  be  enhanced,  the  mode  of  interest  is  "excited"  more  strongly  than 
the  other  modes,  and  the  forced-response  function  appears  much  more  like  a 
frequency  response  function  of  a  structure  having  a  single  degree  of  freedom. 

Figure  36  shows  a  typical  measurement  from  a  test  executed  under  adverse  condi¬ 
tions  for  measurement  of  frequency  response.  Figure  37  shows  a  forced-response 
function  derived  from  a  set  of  measurements  from  that  test  that  enhances  one  of 
the  modes  seen  in  Figure  36. 

For  a  proper  choice  of  the  pseudo-forcing  vector,  the  forced-response  function 
can  be  used  with  a  curve  fitting  program  to  obtain  a  better  determination  of  a 
mode's  eigenvalue  than  would  be  calculated  from  any  of  the  frequency  response 
functions  used  in  the  linear  combination.  If  there  are  frequency  response 
measurements  available  for  several  exciter  locations  as  well  as  several  response 
locations,  then  a  set  of  forced-response  functions  can  be  computed,  using  the 
same  pseudo-forcing  vector,  to  calculate  mode  shape  components  with  greater 
accuracy. 

This  enhancement  technique  requires  that  the  frequency  response  functions  in  the 
linear  combination  be  consistent,  in  the  sense  that  they  all  have  the  same 
eigenvalue  for  the  mode  to  be  enhanced,  and  that  the  pseudo-forcing  vector 
correspond  rather  closely  to  the  mode  shape.  If  this  is  not  the  case,  the 
forced-response  function  will  include  distortions  that  prevent  the  curve  fitting 
programs  from  computing  a  proper  eigenvalue.  In  fact,  executing  the  enhancement 
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and  curve  fitting  the  result  provides  a  check  on  the  validity  of  the  eigenvalue 
and  eigenvector  that  were  obtained  directly  from  the  frequency  response 
functions. 


For  the  example  shown  in  Figure  34,  the  quadrature  response  was  used  to  generate 
the  pseudo-forcing  vector. 

3. 1.2. 3  Mathematical  Model  Correlation 

Correlation  between  ground  vibration  test  results  and  mathematical  models  is 
meaningful  only  in  the  areas  of  significance  of  the  mathematical  model.  This 
applies  not  only  to  bandwidth,  but  also  to  the  area  of  the  airplane  under 
consideration.  For  example,  in  a  mathematical  model  for  flutter  analysis  the 
frequency  range  of  interest  on  the  wing  may  be  5-15  Hz,  that  on  the  vertical  tail 
10-30  Hz,  that  on  a  control  surface  40-100Hz  and  that  on  a  control  surface  tab 
100-200  Hz. 

Mathematical  Model  Comparisons 

Mode  Shape  and  Frequency  -  The  most  common  comparison  is  on  modeshape  and  fre¬ 
quency.  The  modeshapes  and  natural  frequencies  of  the  mathematical  model  are 
computed.  Usually  the  mathematical  model  is  the  free-free  airplane;  occasion¬ 
ally  the  free-free  model  is  modified  to  include  the  GVT  boundary  conditions. 
Generally,  unless  both  frequency  and  modeshape  are  quite  close  the  correlation  is 
deemed  poor.  Poor  correlation  could  be  due  to  errors  in  mathematical  modeling, 
measurement  or  modal  interpretation  of  the  measurement. 
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Frequency  Response  Function  -  Occasionally  frequency  response  functions  of  the 
mathematical  model  with  the  GVT  boundary  conditions  are  computed.  In  the  compar¬ 
ison  of  measured  with  calculated  frequency  response  functions,  no  modal  analysis 
of  the  measurement,  involving  the  judgment  of  the  test  engineer,  is  involved.  It 
has  the  disadvantage  that  the  analysis  engineer  must  make  assumptions  about 
damping  in  his  analysis.  In  this  comparison  the  frequency  of  significant 
response  peaks  and  their  relative  amplitudes  must  agree  well  or  the  comparison  is 
poor.  In  this  case  poor  correlation  is  due  to  errors  in  mathematical  modeling  or 
measurement. 

Mathematical  Model  Revisions 

Intuitively  Based  -  Revisions  of  mathematical  models  to  match  test  results  is 
nearly  always  intuitively  based.  This  is  an  art  all  of  its  own,  and  discussion 
of  it  is  beyond  this  report. 

Systems  Identification  -  Although  considerable  research  has  been  expended  in 
identifying  point  mass,  stiffness  and  damping  from  GVT  data,  littl°  of  this 
research  has  reached  application.  The  principle  difficulties  seem  to  be  involved 
with  reliability  and  with  handling  noise  contaminated  test  data.  Work  remains  to 
be  done  in  developing  rugged,  useful  systems  identification  algorithms. 
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4.0  CONCLUSIONS 


4.1  STATE  OF  THE  ART 

Recent  advances  in  vibration  testing  have  made  it  possible  to  use  substantially 
fewer  resources  to  conduct  tests  of  the  same  or  higher  quality  than  previously. 
Typically,  the  application  of  these  advances  can  reduce  cost,  reduce  time  or, 
test,  and  reduce  the  number  of  people  involved.  The  improvements  include  using 
computers,  improved  test  equipment,  digital  systems  and  developments  in  vibra¬ 
tion  testing  theory. 

Application  of  the  minicomputer  to  the  vibration  test  has  provided  the  most 
stunning  advance.  The  minicomputer  has  made  possible  automating  excitation  and 
data  acquisition,  data  management  and  on-site  or  off-line  frequency  response 
analysis. 

Test  equipment  has  benefited  from  the  recent  advances  in  electronic  circuitry 
design  as  well  as  routine  design  improvements.  LSI  chips  and  microprocessors 
have  found  application  throughout  the  test  systems  giving  inexpensive,  hi^h 
sensitivity,  rugged  transducers,  and  modest  cost  autoranging  amplifiers,  ana¬ 
logue  to  digital  and  digital  to  analogue  converters,  multiplexers  and  other 
items.  Mechanical  design  improvements  have  included  readily  available  off  the 
shelf  suspension  system  components. 

Converting  the  signal  format  to  digital  throughout  much  of  the  test  equipment 
system  has  substantially  improved  dynamic  range,  improved  signal  to  noise  levels 
and  has  often  reduced  equipment  cost. 
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Vibration  testing  theory  advanced  when  the  application  of  the  digital  computer 
and  frequency  response  analysis  to  vibration  testing  made  practical  many  con¬ 
cepts  heretofore  only  of  academic  interest.  Vibration  testing  theory  has  devel¬ 
oped  by  adapting  and  expanding  upon  Fourier  Analysis,  digital  signal  processing 
theory  and  the  theory  of  random  processes. 

4.2  RECOMMENDED  GVT  METHOD 


Single  Point  Excitation/Frequency  Response  Analysis  Method 

The  recommended  method  for  ground  vibration  testing  is  the  single  point  excita¬ 
tion/frequency  response  analysis  methods.  Its  primary  advantages  over  other 
methods  are  that  it  is  more  efficient  and  has  the  prospect  for  substantial 
improvement.  In  particular,  the  multipoint  excitation/sine  dwell  method  has  had 
many  years  development  and  should  be  considered  mature,  yet  both  it  and  the 
recommended  method  give  equivalent  results.  Also,  the  test  time  and  cost  esti¬ 
mates  for  the  recommended  method  are  reliable  whereas  good  estimating  of  test 
time  and  cost  for  the  multipoint  excitation/sine  dwell  method  is  often  quite 
difficult  because  of  the  unpredictability  of  the  effort  required  in  tuning  each 
mode. 
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5.0  RECOMMENDATIONS 


5.1  GROUND  VIBRATION  TEST  METHOD 


The  recommended  ground  vibration  test  method  is  the  single  point  excitation/ 
frequency  response  analysis  method.  The  recommended  method  is  directly  applic¬ 
able  as  described  to  whole  airplane  ground  vibration  tests.  For  testing  models 
and  components  the  recommended  method,  with  appropriate  adaptations  for  test 
article  support  and  size,  is  applicable.  Although  the  recommended  method  is 
currently  in  use  for  flight  flutter  testing,  and  gives  results  equally  satis¬ 
factory  to  those  from  other  methods,  improvement  on  current  practice  is  needed. 
Specifically,  signal  to  noise  ratios  are  often  poor,  particularly  when  flying  in 
turbulence,  and  rapid  reliable  techniques  for  estimating  damping  are  lacking. 

5.2  EQUIPMENT 

5.2.1  Digital 

The  entire  signal  handling  system  used  in  the  test  should  be  based  on  digital 
equipment  to  as  near  to  the  data  capturing  sensors  as  possible.  The  advantages 
of  going  digital  are  many.  Signal  quality  deterioration  downstream  of  the 
analogue  to  digital  converter  is  virtually  eliminated,  digitally  based  equipment 
has  become  very  reasonably  priced  and  computer  compatibility  of  the  system  is 
enhanced. 
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5.2.2  Multiplexer 

The  multiplexer  converts  a  number  of  parallel  data  streams  from  the  transducers 
into  one  time  division  multiplexed  signal.  It  makes  possible  recording  the 
digital  output  from  a  large  number  of  transducers  serially  on  tape  or  disk. 
Using  a  multiplexer  is  desirable  because  it  substantially  increases  the  effi¬ 
ciency  of  the  data  recording  system. 

5.2.3  Autoranging  Amplifier 

An  autoranging  amplifier  should  be  used.  A  variable  gain  amplifier  is  necessary 
on  each  signal  circuit.  Using  a  piece  of  hardware  which  sets  its  own  gains  makes 
the  process  much  more  reliable  by  eliminating  a  possibility  for  human  error, 
reduces  test  time  by  speeding  up  the  gain  setting  process  and  reduces  the  size  of 
the  test  crew. 

Although  autoranging  type  amplifiers  have  been  available  for  a  long  time,  recent 
advances  in  electronics  have  resulted  in  price  reductions  that  have  made  their 
use  in  a  GVT  practical . 

5.2.4  Soft  Support  System 

The  use  of  a  soft  support  system  is  recommended.  In  the  past  soft  support 
systems  tended  to  be  costly,  difficult  to  keep  functioning  well  and  generally  not 
too  successful.  The  advent  of  commercial  airsprings  has  changed  this.  The 
commercially  available  airsprings  with  a  servo  controlled  level  and  integral 
damping  satisfy  the  isolation  requirements  at  modest  cost. 
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5.2.5  FFT  Computer 


The  minicomputer  incorporating  fast  Fourier  transform  capability  is  an  essential 
item  of  equipment  for  testing  via  the  single  point  excitation/frequency  response 
analysis  method.  The  use  of  the  FFT  computer  has  become  practical  with  the 
reductions  in  price  for  the  computer  and  with  the  development  of  software  for  use 
on  the  GVT. 

5.3  FURTHER  RESEARCH  AND  DEVELOPMENT 

5.3.1  Measures  of  Confidence 

5. 3. 1.1  Measurement 

Currently  the  quality  of  the  measurements  is  observed  by  monitoring  the  raw 
signals  for  all  channels  on  oscilloscopes  and  by  computing  frequency  response  and 
coherence  functions  for  the  reference  accelerometer.  Although  the  frequency 
response  and  coherence  functions  are  fine  measures  of  measurement  quality,  they 
are  usually  available  for  only  one  channel  of  data.  It  would  be  impractical  to 
compute  and  monitor  these  functions  for  all  channels.  A  better  approach  is 
needed. 

5. 3. 1.2  Analysis 

The  modal  confidence  factor  and  the  modal  assurance  criteria  are  fine  aids  in 
estimating  the  quality  of  curve  fit  modes.  Further  work  is  needed  in  developing 


145 


/ 


/ 


methods  which  can  compare  a  set  of  curve  fit  modes  with  all  the  frequency 
response  functions  from  all  the  excitation  points  of  a  test.  These  methods  will 
probably  have  to  be  statistical  in  nature. 

5.3.2  Mathematical  Model  Correlation  Criteria 

Current  techniques  for  comparing  the  test  results  with  a  mathematical  model  are 
clearly  unsatisfactory. 

The  usual  approaches  are  to  compare  curve  fit  modeshapes  and  frequencies  with 
modeshapes  and  frequencies  computed  from  the  mathematical  model.  The  difficulty 
comes  in  accessing  the  significance  of  differences  between  the  test  and  analysis 
results.  E.g.,  is  a  5%  difference  in  second  torsion  mode  natural  frequency 
acceptable?  Is  10%?  Is  20*? 

Two  approaches  to  improve  mathematical  model  correlation  seem  evident.  The  first 
is  to  base  the  correlation  on  frequency  response  function,  not  on  modeshapes  and 
frequencies.  This  avoids  the  most  subjective  part  of  the  test.  The  second  is 
that  a  specific  correlation  exercise  has  significance  only  in  terms  of  the 
application  area  intended  for  the  mathematical  model.  This  probably  implies  a 
weighting  function  applied  to  an  error  function.  An  end  product  of  an  approach 
like  this  could  be  a  rating  of  the  correlation  error  in  terms  of  the  performance 
criteria  involved.  An  expected  result  of  a  correlation  exercise  like  this  might 


Correlation  Error 


20  Knots  Flutter  Speed 
-40  Knots  Flutter  Speed 
10%  Wing  Root  Bending  Moment 
-15%  Pylon  Loads 

5.3.3  Curve  Fitting  Algorithms 

5. 3. 3.1  Algorithm  Development 

Current  curve  fitting  algorithms  require  substantial  operator  intervention  and 
expend  much  operator  time  on  routine  tasks.  In  addition  to  automating  the 
routine  curve  fitting  tasks,  algorithms  are  needed  which  are  more  noise  tolerant, 
which  utilize  simultaneously  data  from  several  single  point  excitation  runs  and 
which  are  more  efficient.  Work  is  also  needed  in  systems  integration  of  algori¬ 
thms  so  that  on  one  computer  system,  without  reformatting  the  stored  data,  the 
engineer  could  call  up  any  algorithm  for  use.  There  are  a  number  of  approaches 
which,  although  referred  to  as  independent  methods,  are  really  only  alternative 
curve  fitting  algorithms.  One  such  algorithm  is  Ibrahims  Time  Domain  Method. 
These  algorithms  should  be  incorporated  into  an  integrated  system. 

5. 3. 3. 2  Computer  Systems 

Most  algorithm  development  has  been  done  on  minicomputers.  Some  of  the  new 
algorithm  developments  are  near  the  capacity  of  these  machines.  New  algorithm 
development  should  follow  two  paths.  In  the  future  all  algorithms  that  need 
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large  computer  capacity  should  be  developed  for  use  on  big  mainframe  computers. 
All  algorithms,  large  or  small,  should  be  installed  on  the  big  mainframe 
computer.  The  large  and  small  systems  should  be  as  compatible  as  possible  so 
that  a  set  of  test  results  may  be  processed  on  both  systems  as  necessary. 

5.3.4  System  Identification 

Development  of  the  point  mass,  stiffness  and  damping  of  a  structure  from  test 
modeshape,  frequency  and  damping  has  been  pursued  for  many  years.  These 
approaches  involve  nonlinear  systems  of  equations,  and  are  difficult.  The  suc¬ 
cess  of  these  approaches  has  been  limited.  An  alternative  approach  is  suggested 
for  development  work.  Beginning  with  the  measured  frequency  response  function, 
algorithms  should  be  developed  which  best  fit  unknown  values  for  point  mass, 
stiffness  and  damping  in  a  mathematical  model.  This  has  the  advantages  that: 

1.  This  approach  is  linear,  insuring  a  much  greater  chance  of  success  than 
nonlinear  approaches  and 

2.  The  engineer  may  specify  portions  of  his  mathematical  model  as  known  and 
other  parts  as  variables  to  be  best  fit.  This  has  the  advantage  of  mini¬ 
mizing  the  size  of  the  problem  and  of  reflecting  the  reality  that  the  engi¬ 
neer  usually  has  portions  of  the  mathematical  model  he  is  quite  confident  are 
correct  and  parts  where  he  doubts  the  correctness  of  the  model.  The  engineer 
usually  knows  where  the  problem  areas  are. 
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5.3.5  Instrumented  Test  Boundary  Condition 


In  principle,  no  special  boundary  condition  is  necessary  for  a  ground  vibration 
test.  If  the  forces  and  accelerations  are  measured  across  the  boundaries,  the 
frequency  response  function  for  the  free-free  test  article  may  be  computed  from 
the  measured  frequency  response  functions.  There  would  be  much  advantage  in 
eliminating  the  requirements  for  a  special  boundary  condition.  A  three  part 
investigation  is  suggested. 

1.  Computer  studies.  Exercise  the  equations  with  noise  contaminated  signals 
and  with  various  kinds  of  boundary  conditions. 

2.  Laboratory  model  studies.  Repeat  the  exercises  of  1.  on  laboratory  models. 

3.  Airframe  GVT.  Get  an  old  airframe  out  of  the  boneyard  and  experiment  with 
various  excitation  signals,  boundary  conditions,  etc. 

5.3.6  Data  Basing  Systems 

Large  volumes  of  data  are  created  in  a  ground  vibration  test.  Data  basing 
systems  should  be  applied  to  the  storage  and  retrieval  of  this  data. 

5.3.7  Utility  Computer  Programs 

The  family  of  utility  computer  programs  for  use  on  minicomputer  based  modal 
analyzers  is  inadequate.  Engineers  using  these  computers  waste  considerable 
time  executing  the  steps  in  utility  tasks  manually.  The  utility  computer  pro¬ 
grams  to  automate  these  tasks  should  be  written. 
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5.4  APPLYING  GVT  IMPROVEMENTS 


5.4.1  Documentation 

Improvements  are  needed  in  the  cost  and  quality  of  contractor  ground  vibration 
tests  without  increasing  total  program  cost.  It  is  suggested  that  this  could  be 
accomplished  by  requiring  that  the  usual  intermediate  steps  of  the  process  be 
formally  documented  (rather  than  informal  internal  documentation  as  is  usual). 
Quality  is  invariably  enhanced  when  data  is  prepared  for  Company  management 
review  prior  to  release.  However,  since  this  data  is  normally  prepared  anyway, 
the  total  program  cost  increase  should  be  minimal. 

5.4.2  Pretest  Analysis 

The  pretest  analysis  predicts  the  frequency  response  functions  that  will  be 
measured  in  the  test.  The  mathematical  model  of  the  airplane  plus  the  mathe¬ 
matical  model  of  the  support  system  is  used  in  this  computation.  This  pretest 
analysis  is  an  important  aid  in  test  planning.  The  pretest  analysis  should  be 
completed  before  proceeding  with  the  ground  vibration  test. 

5.4.3  Frequency  Response  Function 

The  frequency  response  function  is  the  direct  result  of  the  test  measurement, 
normalized  to  unit  force  levels.  The  development  of  the  frequency  response 
function  is  direct  and  straight-forward,  following  very  routine  procedures. 
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The  frequency  response  functions  should  be  part  of  the  6VT  test  report.  This 
should  include  the  coherence  functions  associated  with  the  frequency  response 
functions. 

5.4.4  Correlation  With  Mathematical  Model 

Correlation  with  the  mathematical  model  should  be  a  required  part  of  the  test 
report.  At  present  this  correlation  would  be  limited  to  comparing  modeshapes  and 
frequency.  As  the  correlation  criteria  of  section  5.3.2  are  developed  they 
should  be  applied  to  give  a  more  definative  measure  of  the  differences  between 
the  mathematical  model  and  the  test. 

5.4.5  Soft  Support  Measurement 

If  a  soft  support  is  used,  the  bandwidth  on  selected  frequency  response  functions 
must  include  the  soft  support  frequencies.  A  sufficient  number  of  excitation 
locations  and  response  points  must  be  included  so  that  all  the  rigid  body  air¬ 
plane  on  soft  support  modes  are  measured. 

5.4.6  Modal  Characteristics 

The  modeshapes,  natural  frequencies  and  dampings  deduced  from  the  test  should  be 
included  in  the  GVT  test  report,  just  as  is  done  at  the  present. 
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APPENDIX  A 


GUIDE  FOR  GROUND  VIBRATION 
TESTING  OF  AIRPLANES 

1.0  INTRODUCTION 

This  "Guide  for  Ground  Vibration  Testing  of  Airplanes"  contains  guidelines  for 
ground  vibration  testing  via  the  single  point  excitation/frequency  response 
analysis  method.  It  is  intended  that  these  guidelines  not  be  dogmatic;  the  state 
of  the  art  is  changing  rapioly,  the  engineering  philosophy  in  various  organiza¬ 
tions  will  dictate  many  different  approaches  to  problems  and  the  equipment  and 
skilled  manpower  available  will  circumscribe  one's  capabilities. 

The  approach  taken  here  is  that  of  an  aircraft  manufacturer.  It  is  assumed  that 
costs  involved  in  the  test  are  weighed  on  a  return  on  investment  basis.  The 
consequences  of  this  are  that  testing  time  must  be  minimized,  cost  and  manpower 
expenditures  controlled  and  computerized  equipment  agressively  utilized. 

This  guide  discusses  test  planning,  test  equipment,  test  operations,  and  general 
guidelines,  both  as  they  apply  to  ground  vibration  testing  in  general,  and  to  the 
single  point  excitation/frequency  response  analysis  method  in  particular. 
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2.0  TEST  PLANNING 

2.1  Test  Planning  Document 

The  principal  written  coordination  vehicle  between  the  customer  for  the  test  and 
the  testing  group  is  the  test  planning  document.  It  must  encompass  all  aspects 
of  the  test  and  documentation  of  the  test.  The  document  is  written  jointly  by 
the  customer  engineer  responsible  for  the  test  and  the  test  group  engineer 
responsible  for  the  test.  This  document  is  revised  many  times,  as  often  as 
necessary,  to  keep  it  up  to  date  with  current  plans  as  the  test  date  approaches. 
Since  all  people  involved  with  conducting  the  test  receive  copies  of  the  test 
plan  document,  the  regular  revisions  help  keep  everyone  current. 

2.2  Test  Schedule 

Pre-test  planning  should  include  a  carefully  layed  out  test  schedule  for  both 
equipment  and  manpower  allotments.  The  airplane  preparation  should  be  planned 
and  sufficient  time  allotted  for  each  item.  Instrumentation  that  is  required 
must  be  planned  for  and  made  ready  for  the  test. 

2.2.1  Boilerplate  Tests 

Frequently  test  equipment  is  to  be  used  or  test  procedures  used  which  are  new. 
The  risk  of  problems  with  untried  equipment  or  new  procedures  during  the  ground 
vibration  test  is  minimized  by  conducting  boilerplate  tests  with  them  before  the 
GVT.  The  boilerplate  tests  are  conducted  in  the  laboratory  some  time  before  the 
GVT.  They  are  conducted  on  an  ad  hoc  basis  with  minimum  crew  and  expenditure. 


2.2.2  Length  of  Test 


Since  most  airplanes  are  essentially  ready  for  flight  at  the  time  of  a  GVT,  the 
time  available  for  the  test  is  usually  at  a  premium.  The  new  techniques  used  for 
GVT  have  vastly  reduced  the  length  of  tests  and  have  resulted  in  efficient 
automation  of  data.  Since  several  vibrator  locations  are  usually  used  with 
different  airplane  configuration,  the  time  for  test  will  vary. 

For  a  new  airplane  configuration  where  a  complete  GVT  is  required,  a  carefully 
planned  test  will  require  from  eight  to  twelve,  eight-hour  shifts. 

2.2.3  Test  Crew 

The  required  test  crew  for  a  GVT  will  vary  according  to  the  complexity  and  amount 
ot  data  points  that  are  required.  Normally,  for  a  large  airplane,  the  crew  will 
consist  of: 

Set-up  crew  to  move  equipment  into  place 

Instrumentation  crew  to  place  transducers,  string  cable,  hook-up  all  elec¬ 
tronic  equipment,  perform  calibration  and  operate  equipment. 

Test  planners,  director,  and  supervision. 

The  total  manpower  requirement  varies  from  3  to  20  persons,  depending  on  the 
complexity  of  the  test,  the  latter  being  an  all  up  test  on  a  large  airplane 
running  three  shifts  a  day  until  completion. 
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2.3  Test  Planning  for  Measurement  Phase 


2.3.1  Equipment  List 

A  complete  and  comprehensive  equipment  list  must  be  prepared  at  the  earliest 
possible  date.  It  should  contain  a  list  of  the  equipment  that  will  be  required 
for  the  test,  including  transducers,  cables  for  transducers  and  vibrator, 
amplifiers,  filters,  tape  recorders,  oscillographs,  VTVM,  oscilloscope,  function 
generator,  computer  equipment,  etc. 

2.3.2  Airplane  Configuration 

A  detailed  description  of  the  conf iguration( s)  that  are  to  be  tested  should  be 
drawn  up.  Control  surface  support,  weight  of  equipment,  and  landing  gear  config¬ 
uration  must  be  spelleu  out  in  detail.  The  testing  sequence  must  be  planned  so 
that  reconfiguration  of  the  airplane  for  successive  test  conditions  is  performed 
as  efficiently  as  possible. 

2.3.3  Airplane  Suspension 

Since  the  method  of  suspension  may  affect  the  test  data,  detailed  planning  must 
be  done  for  exact  configuration  of  suspension  system.  Plans  should  be  made  to 
check  support  frequencies  and  damping  of  the  airplane  suspension  system. 
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2.3.4  Accelerometer  Locations 


A  drawing  should  be  prepared  of  complete  airplane  calling  out  exact  body  station 
and  water  line  of  each  accelerometer.  Lists  should  then  be  made  and  tabulated 
for  the  test  document  describing  the  location  of  the  measured  structural  response 
locations. 

2.3.5  Exciter  Locations 

A  pretest  analysis  can  be  used  to  determine  the  best  location(s)  to  excite  the 
modes.  Usually  several  locations  will  be  used.  Each  location  should  be  clearly 
inoicated  on  pre-test  plan  drawings  or  sketches  with  WL  and  BS  called  out. 

2.3.6  Pre-Test  Analysis 

A  pre-test  analysis  of  the  airplane  to  be  tested  is  desirable.  A  pre-test 
anslysis  uses  a  mathematical  model  of  the  airplane  structure.  This  mathematical 
model  may  be  a  finite  element  model,  a  beam  model  or  some  other  abstraction  of 
the  airplane  structure.  The  most  desirable  math  model  is  the  airplane  in  GVT 
configuration,  including  the  test  boundary  conditions  at  the  airplane  support. 
Less  desirable  are  models  of  the  free-free  airplane  or  the  airplane  in  configura¬ 
tions  similar  to  the  test  configuration.  Models  of  the  airplane  in  other  config¬ 
urations  are  of  lesser  value. 

There  are  two  kinds  of  pre-test  analysis.  The  first  is  computation  of  frequency 
response  functions.  This  calculation  of  the  response  at  various  points  in  the 
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structure  due  to  excitation  at  a  point,  as  a  function  of  excitation  frequency,  is 
usually  accomplished  by  solution  of  a  set  of  linear  algebraic  equations.  When 
this  computation  is  repeated  for  all  the  candidate  exciter  and  transducer  loca¬ 
tions,  these  predicted  response  amplitudes  due  to  a  unit  amplitude  oscillating 
force  input  provides  strong  guidance  in  selecting  exciter  and  transducer  loca¬ 
tions.  A  second  use  of  these  frequency  response  functions  is  to  select  exciter 
size  and  transducer  sensitivity.  Third,  the  frequency  response  function  is  an 
easy,  quick  comparison  between  GVT  measurements  and  the  structural  mathematical 
model  since  a  measurement  may  be  converted  into  frequency  response  function  form 
with  no  operator  judgment  or  intervention  and  little  computation.  Fourth,  the 
predicted  frequency  response  function  may  be  used  (usually  with  appropriate 
noise  degradation)  as  a  data  set  to  exercise  curve  fitting  routines,  both  as  a 
data  set  to  practice  on  and  to  screen  candidate  algorithms  for  use  on  the  test 
data. 

An  alternative  pre-test  analysis  that  is  often  performed  is  computation  of  mode- 
shapes  and  natural  frequencies.  The  predicted  data  is  more  difficult  to  use  in 
this  form  than  in  the  form  of  frequency  response  function.  The  modal  amplitudes 
may  be  used  as  a  guide  in  selecting  exciter  and  transducer  locations.  However, 
no  information  to  specify  required  exciter  size  and  transducer  sensitivity  is 
available.  Comparison  between  test  measurements  and  the  structural  mathematical 
model  requires  development  of  natural  modes  and  frequencies  from  the  test  data. 
This  presents  no  difficulty  if  the  test  technique  of  sine  sweeps  and  dwells  is 
used  because  modes  and  frequencies  is  the  data  recorded  from  the  test.  When  more 
sophisticated  testing  techniques  are  used,  the  modal  parameters  must  be 
extracted  from  the  frequency  response  functions  by  modal  analysis.  In  a  further 
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complication,  this  comparison  is  sometimes  very  difficult  when  it  is  not  entirely 
clear  how  to  pair  experimental  and  analytical  modes  for  evaluation. 


2.3.7  Instrumentation  Calibration 

Plans  should  be  made  for  all  transducers  to  be  calibrated  over  the  frequency 
ranges  of  interest  and  at  several  representative  amplitudes.  Calibration  sheets 
should  be  made  out  that  can  be  used  during  actual  calibration  that  are  suitable 
for  test  report.  In  a  computerized  laboratory  the  calibrations  will  be  recorded 
ana'  used  within  the  computer  systems,  and  the  paperwork  minimized.  For  most 
major  tests  the  calibration  is  required  to  be  NBS  traceable. 

2.3.8  Photographic  Documentation 

Photographic  documentation  of  the  test  must  be  planned.  For  engineering  documen¬ 
tation  photographs  are  usually  needed  of  instrumentation  layouts,  shaker 
installations,  control  surface  blocking  and  airplane  configuration.  In 
addition,  still  and  motion  pictures  are  often  taken  for  use  by  the  test  customer 
groups. 

2.4  Test  Planning  for  Analysis  Phase 

2.4.1  Data  Reduction  Plan 

A  data  reduction  plan  is  necessary  for  both  scheduling  purposes  and  for  budget¬ 
ing.  This  plan  includes  an  estimate  of  the  number  of  frequency  response  func¬ 
tions  to  be  analyzed,  the  bandwidth  of  interest  for  each  major  component  of  the 


airplane,  an  estimate  of  the  number  of  modes  to  be  processed  and  anticipated 
problem  areas.  The  data  reduction  plan  is  written  as  part  of  the  overall  test 
plan,  and  is  revised  as  necessary  after  the  measurements  are  complete. 

2.4.2  Documentation  Plan 

A  documentation  plan  is  included  in  the  test  plan  document.  A  written  agreed  on 
plan  for  documentation  developed  before  the  test  is  important  in  getting  satis¬ 
factory  test  reports.  The  documentation  plan  should  define  the  contents  of  the 
document  and  the  documentation  specifications. 
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3.0  TEST  EQUIPMENT 


3.1  Test  Equipment  for  Measurement  Phase 

3.1.1  Test  Supervision  Equipment 

A  minicomputer  is  often  used  for  test  supervision.  This  computer,  with  a  key¬ 
board  and  paper  (or  cassette)  tape  reader,  executes  control  programs  to  initiate 
excitation  ana  data  acquisition,  terminate  excitation,  terminate  data  acquisi¬ 
tion  and  automatically  perform  the  online  data  processing.  This  computer  need 
not  have  much  capacity.  A  standard  desktop  computer  will  suffice,  or  this 
control  function  may  be  done  as  a  shared  function  in  the  larger  minicomputer  of  a 
modal  analyzer.  This  computer  must  have  a  standard  digital  data  bus  interface. 

3.1.2  Excitation  Equipment 

3. 1.2.1  Excitation  Signal  Generator 

In  the  usual  equipment  arrangement  incorporating  electrodynamic  shakers,  an 
analogue  electrical  signal  is  input  to  a  power  amplifier.  The  output  from  the 
power  amplifier  drives  the  shaker.  A  force  transducer  between  the  shaker  and  the 
airplane  is  used  to  provide  force  feedback  to  the  shaker  control  equipment. 

Modal  Analyzer 

One  common  excitation  signal  source  is  an  FFT  type  modal  analyzer.  The  engineer 
constructs  his  desired  force  spectrum  in  the  analyzer.  The  analyzer  is  then 
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operated  in  the  inverse  Fourier  transform  mode.  The  resulting  time  history 
signal  output  from  the  FFT  computer  is  processed  through  a  digital  tc  analogue 
converter  and  transmitted  to  the  shaker  control  equipment. 

Sine  Wave  Osci 1 lator 

Pure  sinusoiaal  signals  are  not  usually  used  with  the  single  point  excitation/ 
frequency  response  analysis  method  except  in  documenting  nonlinearities.  When  a 
sinusoidal  signal  is  required  a  sine  wave  oscillator  is  an  excellent  source.  The 
oscillator  output  is  patched  into  the  shaker  control  panel  input  instead  of  the 
digital  to  analogue  converter  output. 

Random  Noise  Generator 

Bandwidth  limited  random  noise  may  be  created  by  a  random  noise  generator  in 
conjunction  with  a  high  pass  and  a  low  pass  filter  as  well  as  by  the  modal 
analyzer.  It  may  be  advantageous  to  use  the  random  noise  generator  for  long 
continuous  (or  pure)  random  excitation  runs  (durations  typically  approaching  one 
hour).  This  frees  the  modal  analyzer,  which  may  now  be  used  during  the  con¬ 
tinuous  random  excitation  periods  to  perform  preliminary  curve  fitting  or  other 
appropriate  computations. 

Magnetic  Tape 

It  is  often  advantageous  to  create  complex  or  unusual  excitation  signals  in  the 
laboratory  prior  to  the  test  and  record  them  on  magnetic  tape.  The  output  from 
the  tape  recorder  is  patched  directly  into  the  shaker  control  panel. 
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3. 1.2. 2  Shaker  Control  Equipment 


The  shaker  control  panel  receives  the  excitation  signal  and  routes  it  to  the 
power  amplifiers.  Output  level  for  the  power  amplifiers  are  controlled  from  the 
shaker  control  panel.  Some  installations  utilize  feedback  from  the  force  trans¬ 
ducer  between  the  shaker  and  the  airplane,  while  other  systems  function  open 
loop.  The  shaker  control  panel  instrumentation  monitors  excitation  signal  and 
output  force  signal. 

3. 1.2. 3  Shaker  and  Shaker  Attachments 

The  exciters  usually  used  are  electro-mechanical  vibrators  with  several  hundred 
pounds  force  capability.  Vibrators  used  for  control  surfaces  and  tabs  are 
smaller,  in  the  range  of  i-25  pounds  force.  These  vibrators  usually  have  the 
voice  coil  suspended  on  flextures  with  the  voice  coil  attached  to  the  airplane. 
Flextures  are  usually  placed  on  the  end  of  the  attachment  rod  to  reduce  moment 
transmitted  and  reduce  alignment  difficulty.  A  vacuum  cup  has  been  found  to  be  a 
convenient  way  to  attach  to  the  aircraft  surface  although  double  back  tape  may 
also  be  employed. 

3. 1.2. 4  Impact  Hammer 

Impact  hampers  contain  a  force  transducer  so  that  the  force  time  history  of  the 
impact  may  be  recorded.  Impact  hammers  are  available  in  several  sizes  with 
various  kinds  of  material  on  the  Impact  surface.  Vibration  testing  on  airplanes 
with  the  impact  hammer  is  not  well  developed  and  little  definitive  experience 
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exists.  The  work  that  has  been  done  indicates  that  the  impact  hammer  is  poten¬ 
tially  useful  on  control  surfaces  and  other  small  components.  The  technique  has 
proven  useful  on  panels,  wind  tunnel  force  models  and,  to  a  limited  extent,  on 
wind  tunnel  flutter  models. 

3.1. 2. 5  Other  Excitation  Methods 

Operating  Inputs 

Operating  inputs  are  rarely  used  in  ground  vibration  testing  of  airplanes.  This 
is  probably  because  the  available  operating  inputs  almost  never  excite  all  of  the 
modes  of  interest. 

In  one  instance  where  operating  inputs  were  used,  a  transport  airplane  required  a 
ground  vibration  test  after  a  design  modification.  The  test  was  conducted  to 
measure  only  certain  of  the  antisymmetric  wing  modes.  These  modes  were  excited 
by  providing  swept  sine  input  to  the  rudder  channel  of  the  automatic  flight 
control  system.  The  inertia  forces  of  the  oscillating  rudder  provided  sufficient 
excitation  to  the  modes  of  interest. 

Bonkers 

On  occasion  an  airplane  fitted  with  Donkers  for  flight  flutter  testing  has 
required  a  ground  vibration  test,  and  the  bonkers  have  been  used  as  an  excitation 
source.  This  technique  is  most  certainly  expedient,  although  it  appears  that 
only  the  first  few  modes  have  been  extracted  where  this  approach  has  been  used. 
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Unit  Step  Response 


The  unit  step  response  has  been  attempted  with  limited  success  on  wind  tunnel 
flutter  models.  No  applications  of  this  technique  to  airplanes  are  known. 

3.1.3  Aircraft  Support  System 

3. 1.3.1  Soft  Support  System 

On  many  occasions  the  test  airplane  is  supported  on  a  special  purpose  soft 
support  system.  This  system  must  offer  low  enough  natural  frequencies  so  that 
the  support  system  is  well  separated  from  the  elastic  modes  of  the  airplane.  The 
system  must  also  be  stable  and  reliable. 

3. 1.3. 2  Soft  Tires 

Frequently  transport  airplanes  are  shaken  on  soft  tires.  The  landing  gear  oleo 
struts  are  either  bottomed  or  overfilled  with  oil  to  eliminate  any  motion  in  the 
strut.  Air  pressure  in  the  tires  is  reduced  to  make  the  tires  function  as  soft 
springs.  This  method  requires  no  special  equipment  and  little  preparation.  It 
has  the  disadvantages  that  the  frequency  separation  is  not  as  good  as  a  soft 
support  system  and  usually  the  set  of  tires  used  is  damaged  so  severely  they  must 
be  discarded. 

3. 1.3. 3  Hard  Mount 

Attempts  have  been  made  to  rigidly  constrain  the  test  airplane  at  its  suspension 
points.  With  care  this  can  be  successful  on  small  airplanes.  However,  on  large 
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airplanes  it  has  proven  extremely  difficult  to  provide  a  stiff  enough  support  and 
backup  structure  (which  often  must  include  the  building  floor  and  foundation). 


3.1.4  Data  Acquisition  Equipment 

3. 1.4.1  Transducers 

Accelerometers 

Accelerometers  are  used  for  sensing  response  of  the  structure.  These  accelerom¬ 
eters  are  attached  in  a  temporary  manner  with  tape  or  a  removable  cement.  Since 
low  frequencies  are  usually  measured  at  low  acceleration  levels,  an  accelerom¬ 
eter  with  good  output  and  phase  characteristics  is  required.  The  large  servo- 
type,  strain  gage,  accelerometer  is  rec onwended  for  most  GVT  work.  Where  smaller 
transducers  are  required,  other  more  compact  type  transducers  may  be  used  of  the 
crystal  or  strain  gage  type. 

Force  Gages 

Since  the  accurate  measurement  of  the  force  vector  input  to  the  airplane  is 
required,  a  reliable  force  measuring  transducer  is  used  between  the  vibrator  and 
the  airplane.  This  force  transducer  is  usually  attached  to  the  push  rod  from  the 
vibrator  and  may  be  a  crystal  or  strain  gage  sensing  element.  The  gage  should 
have  a  minimum  of  cross-talk  output  resulting  from  moment  forces  that  are  applied 
during  the  excitation. 
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Strain  Gages 


Strain  gages  are  rarely  placed  on  an  airplane  for  use  in  ground  vibration  testing 
because  the  low  strain  levels  produced  during  a  GVT  result  in  poor  signal  to 
noise  ratios.  However,  strain  gages  placed  for  other  purposes  are  used.  No 
special  preparations  are  necessary  on  the  strain  gage,  it  has  ample  bandwidth  and 
phase  stability,  but  care  must  be  taken  that  the  signal  conditioning  equipment 
used  with  the  strain  gages  is  appropriate  to  vibration  testing  rather  than  static 
load  testing  where  most  strain  gages  are  used. 

Others 

Among  other  transducers  used  are  displacement  and  velocity  sensors. 

3.i.4.2  Signal  Conditioning  Equipment 

Fi Iters 

Usually  the  system  is  calibrated  for  amplitude  and  phase  using  a  high-pass  filter 
set  at  a  low  value  of  1  or  2  Hz  to  eliminate  zero  shift  arising  from  balance 
differences  of  each  circuit. 

Cathode  following  or  charge  amplifiers  serve  as  impedance  matching  signal  con¬ 
ditioning  instruments  for  crystal  transducers  with  high  impedance.  Locating  the 
charge  amplifier  close  to  the  transducers  is  desirable  to  reduce  the  line  loss 
for  long  lead  lengths. 
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Amplifiers 


Amplifiers  are  required  to  raise  the  low  level  signals  from  the  transducers  to 
levels  that  can  be  tape  recorded.  Specifications  for  an  amplifier  include  the 
following  items: 

Linearity 
Sensitivity 
Signal  to  Noise 
Gain  Settings 
Phase 

3. 1.4. 3  Signal  Conversion  and  Storage 

There  are  two  general  approaches  to  signal  conversion  and  storage.  Although  the 
digital  system  is  superior  and  very  much  preferred,  a  discussion  of  the  older 
analogue  system  approach  is  included  because  many  organizations  have  the  ana¬ 
logue  systems  and  no  opportunity  to  upgrade. 

Digital  System  Approach 

Anti-Alias  Filters— Low  pass  filters  are  included  upstream  of  the  analogue  to 
digital  converter  on  each  signal  circuit  to  serve  as  anti-alias  filters.  The 
filters  must  be  set  to  function  with  the  sampling  rate  on  each  circuit. 

Auto  Ranging  Amplifier— The  autoranging  amplifier  functions  in  two  modes.  First, 
while  autoranging  it  samples  the  incoming  signal  continuously  to  find  the  maximum 


A-24 


1 


I 


signal.  The  autoranging  function  is  carried  out  on  command.  This  is  done  in  a 
GVT  during  typical  excitation.  The  autoranging  results  in  an  amplifier  gain 
factor  that  will  produce  a  specified  peak  amplitude  output.  In  the  second  mode, 
the  amplifier  function  of  the  autoranging  amplifier  outputs  the  gain  and  the 
input  signal  scaled  by  the  gain. 

Analogue  to  Digital  Converter— The  analogue  to  digital  converter  creates  a 
digital  signal  from  its  input  analogue  signal.  The  conversion  takes  palce  either 
on  an  internal  trigger  (clock)  or  an  external  trigger.  For  a  GVT  all  the  trigger 
commands  are  usually  taken  from  one  central  clock  which  is  usually  located  in  the 
modal  analyzer. 

Multiplexer-A  digital  time  division  multiplexer  is  used  to  amalgamate  the 
signals  from  many  sensors  for  recording  serially  on  one  device.  Equipment  is 
available  which  combines  the  functions  of  autoranging  amplifier,  analogue  to 
digital  converter  and  multiplexer  into  one  unit. 

Minicomputer— A  minicomputer  is  needed  to  format  the  multiplexer  output  data  for 
recording  and  to  function  as  a  disk  or  tape  controller. 

Disk  or  Tape  Recorder— Disk  recording  is  preferred  over  tape  because  it  is  much 
faster,  allowing  increased  bandwidth  (or  equivalently  additional  channels  of 
multiplexing).  However,  many  disk  units  do  not  have  enough  capacity  to  record 
all  the  data  for  one  run,  and  in  that  case  one  must  record  directly  on  tape  and 
accept  its  limitations. 


Analogue  System  Approach 


Variable  Gain  Amplifiers— A  separate  variable  gain  amplifier  is  used  for  each 
transducer  circuit.  During  typical  excitation  the  test  technician  adjusts  the 
gain  setting  on  each  amplifier  to  give  a  desired  output  signal  amplitude  (as 
monitored  on  an  oscilloscope).  The  technician  records  the  gain  settings  on  his 
clipboard. 

Analogue  Tape  Recorder-The  output  from  the  variable  gain  amplifiers  is  the  input 
to  the  analogue  tape  recorders.  Since  analogue  tape  recorders  tend  to  be 
capacity  limited,  several  are  required,  running  in  parallel,  for  the  usual  GVT. 

3.1.5  Data  Verification  Equipment 

The  onsite  modal  analyzer  is  used  for  data  verification.  In  addition,  monitor 
oscilloscopes  displaying  all  transducers  during  data  acquisition  provide  the 
engineer  with  a  qualitative  check  on  signal  quality. 

3.2  Test  Equipment  for  Analysis  Phase 

A  computer  system  is  used  for  frequency  response  analysis.  The  system  most 
commonly  used  is  the  minicomputer  based  modal  analyzer,  with  an  appropriate  set 
of  peripheral  equipment  (often  including  a  hardware  band  selectable  Fourier 
transform  processor).  Some  organizations  have  chosen  to  perform  their  frequency 
response  function  analysis  on  the  big  mainframe  computer.  There  is  a  trade  off 
here  -  the  big  mainframe  has  more  capacity  and  is  more  versatile  but  moi  e  modal 
analysis  software  exists  for  minicomputers. 
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4.0  TEST  OPERATIONS 


4.1  Calibration 

The  transducers  should  be  checked  over  the  range  of  frequencies  of  interest  with 
several  levels  of  known  input.  A  calibration  table  should  be  used  with  a 
secondary  standard  pickup.  The  remainder  of  the  electronic  equipment  must  be 
checked  with  traceable  standards  to  insure  amplifier  and  tape  recorders  are 
operating  within  standard  tolerances.  Each  item  of  equipment  must  have  an  up-to- 
date  calibration  sticker  indicating  the  instrument  is  current. 

4.2  Aircraft  Preparation 

4.2. i  Configuration 

The  airplane  configuration  tested  may  include  modifications  not  typical  of 
flight.  For  example,  the  airplane  of  the  A-10  demonstration  ground  vibration 
test  was  tested  with  the  flaps  removed  because  they  were  known  to  be  the  source 
of  a  strong  nonlinearity. 

4.2.^  Fuel  System 

The  ideal  fuel  state  to  shake  an  airplane  is  empty.  Then  there  is  no  question  of 
the  effect  of  fluid  interactions  on  the  test  data.  Shaking  the  airplane  empty  of 
fuel  is  frequently  adequate  in  organizations  where  the  effect  of  fuel  can  be 
added  to  the  airplane  mathematical  model  analytically. 


The  next  ideal  fuel  state  is  with  every  fuel  tank  either  empty  or  completely 
full.  In  this  case  the  fluid  interaction  effect  is  between  the  fluid  bulk  and 
the  surrounding  tank  walls.  Fortunately  the  frequencies  at  which  this  effect  is 
significant  are  usually  well  above  those  important  in  whole  airplane  structural 
dynamics  -  flutter,  gust,  etc.  Note,  however,  that  this  effect  is  significant  at 
panel  flutter  frequencies. 

The  most  difficult  fuel  state  is  a  partially  filled  tank.  In  this  case  there  is  a 
fluid  surface,  in  addition  to  the  fluid  bulk,  interacting  with  the  structure. 
The  fluid  surface  in  general  exhibits  non-linear  behavior  which  is  not  only  a 
function  of  vibration  amplitude,  but  also  a  function  of  the  boundaries  of  the 
fluid  surface,  i.e.  an  airplane  fuel  tank  tested  with  the  same  volume  of  fuel  in 
two  different  attitudes  can  give  different  dynamic  characteristics. 

Fuel  Safety-The  primary  danger  is  not  from  fire  but  from  explosion  of  a  fuel 
vapor-air  mixture  in  the  ullage  area  of  the  fuel  tank.  This  problem  is  more 
severe  for  airplanes  fueled  with  JP-4  (JET-B)  than  with  JET-A.  Nitrogen  inerting 
has  usually  been  sufficient  to  eliminate  the  danger  of  explosion,  although 
occasionally  the  fire  safety  organization  will  require  a  full  purge  on  some 
systems. 

4.2.3  Ejection  Seat 

If  the  airplane  contains  an  ejection  seat  it  must  be  removed  unless  it  can  be 
satisfactori ly  safetyed.  Access  to  the  cockpit  must  then  be  strictly  limited  to 
qualified  personnel. 
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4.2.4  Oxygen  Systems 


The  oxygen  systems  on  the  airplane  must  be  configured  to  satisfy  the  health  and 
safety  organizations  requirements. 

4.2.5  Flight  Control  System 

The  flight  control  system  of  the  airplane  usually  contains  nonlinearities  and 
often  couples  closely  with  the  elastic  modes  of  the  airplane.  Because  of  this 
the  flight  control  system  is  modified  to  minimize  these  effects  for  the  airplane 
ground  vibration  test.  If  the  dynamic  characteristics  of  the  control  system  must 
be  measured  this  is  best  done  as  a  separate  test.  Typical  modifications  to  the 
flight  control  system  include  blocking  or  pining  the  control  stick  (or  wheel)  or 
to  block  the  control  stick  (or  wheel)  output  quadrant  so  that  vibratory  motion  of 
the  cockpit  will  not  induce  oscillatory  inputs  into  the  flight  control  system.  A 
second  modification  is  to  block  (usually  with  shims  and  wedges)  the  control 
surface  PCU  input  quadrant  (powered  surfaces)  or  the  control  surface  actuator 
quadrant  (manually  controlled  surfaces).  A  third  measure  is  to  test  the  airplane 
with  all  automatic  flight  control  systems  off  or  disconnected.  This  is  so  that 
vibration  of  the  AFCS  sensors  do  not  cause  commands  for  oscillatory  motion  at  the 
PCU  actuators. 

4.2.6  Dummy  Engines 

There  has  been  concern  that  during  a  GVT  the  vibrations  induced  in  the  jet 
engines  on  the  test  airplane  could  damage  the  engines.  The  engine  manufacturers 
access  this  potential  for  damage  for  each  engine  design  and  write 


recommendations.  In  the  worst  case  the  engines  are  removed  from  the  airplane  and 
replaced  with  mass-properties-equivalent  dummy  engines.  For  less  severe 
situations  the  requirement  may  be  1)  to  motor  the  engines  at  all  times  the 
airplane  is  being  shaken,  2)  rotate  the  engine  periodically  during  the  test 
(typically  every  four  hours)  or,  3)  no  special  requirement.  In  recent  years  the 
trend  has  been  toward  less  stringent  restrictions  because  of  1)  improvements  in 
bearing  design  and  2)  test’~g  with  predominantly  random  excitation  rather  than 
sinusoidal  provides  a  more  benign  environment  to  the  engines. 

4.2.7  Other  Vi brat  ;i  Sensitive  Equipment 

Ground  vibrat'on  testing  is  not  an  adverse  environment  for  most  equipment  other 
than  the  engines  because  the  equipment  is  qualified  to  stringent  specifications. 
The  possibility  for  damage  to  unqualified  nonspecification  equipment  must  be 
considered. 

4.2.8  Test  Equipment  Installation 

The  test  equipment  installation  should  be  rapid  because  the  length  of  time  the 
test  airplane  is  occupied  for  the  GVT  must  be  minimized.  This  is  accomplished  by 
assembling  and  checking  the  equipment  in  the  laboratory  prior  to  the  test,  by 
rack  mounting  equipment,  by  making  up  accelerometer  installation  kits  and  by 
preplanning  the  test  equipment  installation  for  maximum  effciency. 
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4.3  Test  Operations  For  Measurement  Phase 


4.3.1  System  Checks 

4.3. 1.1  Electronic  Equipment 

The  usual  checks  of  installed  electronic  equipment  are  satisfactory;  exercising 
systems  with  reference  and  calibration  signals,  etc. 

4. 3. 1.2  Aircraft  Support  System 

The  aircraft  support  system  must  first  be  checked  for  function  and  stability. 
Then  the  rigid  body  modes  of  the  airplane  must  be  measured;  obtaining  natural 
frequencies,  damping  and  modeshape.  This  is  most  expediently  done  by  setting  the 
lower  bandpass  limits  well  below  the  expected  rigid  body  natural  frequencies  for 
the  initial  random  excitation  of  the  airplane.  Energy  considerations  may  dictate 
separate  runs  to  measure  the  rigid  body  modes,  using  bandwidth  limited  noise 
encompassing  only  the  expected  rigid  body  frequencies. 

4. 3. 1.3  Rattles 

Walk  around  inspections  of  the  airplane  while  it  is  being  excited  at  a  fairly 
high  force  level  is  important.  Any  rattles  present  are  indicative  of  non- 
linearities.  This  may  be  due  to  loose  equipment  or  due  to  free  play.  Particular 
attention  should  be  paid  to  the  shims  and  wedges  in  flight  control  systems. 
Invariably  some  of  them  won't  be  sufficiently  tight,  and  will  need  tightening  or 
rework,  possibly  more  than  once. 
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4.3.2  Force  Level  Selection 


Although  excitation  force  level  is  predicted  by  the  pretest  analysis,  excitation 
force  levels  to  be  used  are  selected  by  trial  and  error  in  the  vicinity  of  the 
predicted  force  level.  Low  force  levels  are  desired  because  most  nonlinear 
systems  behave  in  a  more  linear  fashion  at  low  force  levels,  but  at  low  force 
levels  the  signal  to  noise  ratios  are  poor.  A  best  compromise  force  level  is 
sought. 


4.3.3  Data  Acquisition 

4.3.3. 1  Excitation 

The  excitation  signal  of  T  seconds  duration  is  generated  in  a  Fourier  analyzer 
data  block  in  the  time  domain  and  output  to  the  shaker  through  the  digital-to- 
analog  converter.  The  excitation  signal  may  be  of  the  following  types: 

1.  Periodic  random  transient 

2.  Periodic  log  swept  sine  transient 

3.  Pure  random 

The  exiciter  locations  and  directions  of  excitation  may  typically  include 
vertical  excitation  on  one  of  the  wing  tips,  lateral  excitation  on  the  aft  body, 
lateral  excitation  on  the  vertical  fin,  vertical  excitation  on  the  horizontal 
stabilizer,  and  chordwise  excitation  on  the  horizontal  stabilizer. 


Force  levels  are  determined  by  a  combination  of  visual  verification  of  actual 
airplane  vibration  amplitudes  and  accelerometer  response  signal  levels  as 
observed  in  the  monitor  scopes.  The  frequency  range  may  encompass  frequencies  up 
to  50.0  Hz  and  may  be  subdivided  into  smaller  ranges  such  as  0  to  10.0  Hz,  5.0  Hz 
to  20.0  Hz,  and/or  20  Hz  to  50  Hz  with  varying  frequency  resolution  or  time 
duration.  Frequency  resolution,  f,  or  time  duration,  T  =  1/  f,  are  sampling 
parameters  that  are  functions  of  the  structure's  damping  characteristics,  fre¬ 
quency  range  and  the  sample  size  (or  block  size)  of  the  Fourier  analyzer. 

4. 3. 3. 2  Signal  Conditioning  and  Recording 

Digital  Recording  System 

If  an  analogue  to  digital  converter  and  a  multiplexer  are  used,  then  all  the 
analog  tape  recorders  would  be  replaced  by  one  digital  magnetic  tape  unit  as  the 
storage  device  for  the  digitized  multiplexed  time  histories.  A  multiplexer 
affords  a  significant  improvement  in  signal-to-noise  ratio  over  an  analog 
system.  A  multiplexer  with  an  automatic  gain  range  amplifier  affords  the  added 
benefit  to  improved  S/N  ratio  by  operating  with  an  optimum  gain  level  on  each 
word  of  the  incoming  data  stream.  The  force  input  signal  measured  at  the  shaker 
and  the  accelerometer  response  signals  are  the  only  required  signals  to  be 
digitized  and  recorded  on  the  digital  magnetic  tape  unit.  Data  qualifiers  such 
as  block  size,  scale  factor,  data  calibrators  and  frequency  resolution  are  also 
stored  on  the  digital  tape  with  each  block  of  data.  The  sampling  rate  of  the 
multiplexer  analog-to-digital  converter  is  clocked  by  the  control  computer  ADC. 
The  multiplexer  ADC  is  triggered  by  the  data-ready  pulse  of  the  control  computer 
so  that  all  response  time  histories  are  periodic  and  synchronous  with  the 
excitation  signal. 
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Analog  Recording  System 


If  an  analog  recording  system  is  used,  then  on  each  analog  wideband  FM  tape 
recorder  are  recorded  the  time  domain  data  from: 

1.  The  force  input  signal  as  measured  from  a  force  transducer  on  the  shaker  at 
the  point  of  excitation. 

2.  The  response  signals  from  the  accelerometers  mounted  at  preselected  coordi¬ 
nate  points  and  directions  on  the  airplane. 

3.  The  data-ready  pulse  which  signals  the  start  of  each  sweep  at  T=0  of  each 
Fourier  time  window.  For  post-test  data  analysis,  this  pulse  is  used  to 
trigger  the  analog-to-digital  converter  (ADC)  of  the  Fourier  analyzer. 

4.  Time-code  signal . 

5.  Voice  identification. 

For  each  test  condition,  there  are  several  analog  tape  recorders  running  simul¬ 
taneously  depending  on  the  number  of  accelerometer  signals  being  recorded  for 
that  particular  test  condition. 

4. 3. 3. 3  Data  for  Zoom  Transforms 

The  zoom  transform  is  a  measurement  technique  in  which  Fourier-transform  based 
digital  spectrum  analysis  is  performed  over  a  frequency  band  whose  upper  and 
lower  frequencies  are  independently  selectable.  Zoom  can  provide  an  improvement 


in  frequency  resolution  and  dynamic  range  over  a  baseband  measurement  which 
extends  from  dc  to  some  maximum  frequency,  Fmax.  The  zoom  transform  operates  an 
incoming  time  domain  data  to  the  analyzer's  analog-to-digital  converter  (ADC)  or 
on  time  domain  data  that  has  previously  been  recorded  on  a  digital  mass  storage 
device  (in  real  time,  i.e.,  no  samples  lost).  The  time  domain  data  is  digitally 
filtered  and  only  the  filtered  data  stored  and  then  Fourier  transformed. 

The  zoom  transform  lends  itself  ideally  to  testing  situations  wherein  successive 
ensembles  of  data  are  random  in  nature.  If  frequency  resolution  is  improved  by  a 
factor  of  n  over  the  original  base-band  measurement,  then  it  follows  that  the 
time  record  of  the  input  signals  for  a  zoom  measurement  must  be  n  times  as  long 
l Ref.  5). 

In  testing  situations  wherein  successive  ensembles  of  data  are  totally  observed 
transients  such  as  with  periodic  random  transient  excitation,  the  zoom  transform 
is  not  readily  adaptable.  In  these  instances,  frequency  resolution  is  improved 
by  increasing  the  number  of  samples  or  block  size,  N.  An  8192  point  transform  is 
now  ivailable  which  increases  the  sample  size  capacity  of  the  newer  version  of 
minicomputer-based  Fourier  analyzers. 

4.3.4  Verification 

The  incoming  data  stream  of  both  the  force  input  signal  and  the  monitor  accelero¬ 
meter  response  signal  as  seen  in  the  display  scope  of  the  Fourier  analyzer  can 
provide  a  visual  check  of  the  data  in  the  time  domain.  This  visual  verification 
of  the  signal  requires  some  prior  experience  on  the  part  of  a  knowledgeable  test 
operator. 
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In  the  frequency  domain,  the  quality  of  the  frequency  response  function  is 
checked  by  means  of  the  coherence  function.  After  the  frequency  response 
function  has  been  calculated,  the  coherence  function  is  then  calculated  as  the 
next  step  in  the  Fourier  keyboard  program.  It  is  defined  as  follows  (Ref.  2): 

2  .  ,2  ^xx  I**  I 

Coherence  function  Y  =  | H  j  -g —  =  qq 

yy  xx  yy 

where  G  =  cross  power  spectrum 

xy 

G  =  input  auto  power  spectrum 

X  X 

GVy  =  response  auto  power  spectrum 

If  the  coherence  is  equal  to  1  at  any  specific  frequency,  the  system  is  said  to 
have  perfect  causality  at  that  frequency.  In  other  words,  the  measured  output 
is  totally  caused  by  the  measured  input,  or  by  sources  coherent  with  the 
measured  input.  A  coherence  value  less  than  1  at  a  given  frequencv  indicates 
some  degree  of  noise  contamination  and/or  non-linear  ottortion. 

Modal  analysis  for  selected  modes  and  a  suitable  subset  of  all  accelerometers 
is  often  performed  to  gain  additional  confidence.  The  goals  of  modal  analysis 
to  be  accomplished  during  the  test  must  be  modest  because  there  is  limited 
time  available  to  perform  the  analysis. 
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4.3.5  Nonlinearities 


Nonlinearities  are  handled  in  three  ways;  by  eliminating,  by  averaging  or  by 
documenting.  Free  play  may  be  eliminated  by  shimming,  blocking  or  preloading. 
Nonlinear  components  may  be  removed  from  the  test  article  or  may  be  replaced  with 
a  linear  ‘‘dummy"  component.  The  technique  of  averaging  the  measured  data  from 
random  excitation  produces  frequency  response  functions  that  are  the  linear 
equivalent  average  of  the  nonlinear  system.  Nonlinearities  are  documented  by 
special  testing  techniques  appropriate  to  the  type  of  nonlinearity  at  hand. 

4.4  Analysis  Phase  Test  Operations 

4.4.1  Preparation  of  Frequency  Response  Functions 

4.4.1. 1  Disk  File  Digital  Time  histones 

A  series  of  actions,  none  of  them  very  automated  at  present,  is  necessary  to 
produce  digital  time  histories  on  the  disk  file  computer  storage  of  the  modal 
analyzer. 

If  digital  magnetic  tape  is  the  data  storage  media  the  problem  is  that  the  data 
on  the  tape  is  in  time  division  multiplexed  form.  The  demultiplexing  operation, 
called  unweaving,  involves  either  selective  reading  of  a  few  channels  at  a  time 
from  the  tape  using  the  minicomputer  or  exporting  the  tape  to  a  big  mainframe 
computer  where  the  tape  is  rewritten  into  demultiplexed  form,  and  then  reading 
this  tape  into  the  modal  analyzer. 
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If  analogue  magnetic  tape  is  the  storage  media  then  the  analogue  signal  is  read 
into  an  analogue  to  digital  converter  and  then  to  the  modal  analyzer  disk, 
mimicing  a  realtime  analysis  of  the  test  data. 

4.4.1. 2  Signal  Processing 

The  engineer  must  judge  the  extent  of  modifications  to  the  time  history  signals 
necessary  to  produce  analyzable  frequency  response  functions.  Generally  this 
signal  processing  accentuates  one  facet  of  the  signal  to  the  detriment  of  others. 
Some  of  the  processes  carried  out  are  windowing,  decimation  and  averaging.  From 
these  processes  computation  of  the  frequency  response  function  via  fast  Fourier 
transforms  follows  directly.  An  alternative  process  which  produces  a  frequency 
response  function  having  fine  frequency  resolution  over  a  limited  bandwidth  is 
called  a  band  selectable  Fourier  transform  (a  zoom  transform). 

4.4.2  Curve  Fitting 

The  Laplace  modal  parameters  of  frequency  and  damping,  magnitude  and  phase  can  be 
estimated  for  each  mode  of  vibration  by  curve-fitting  a  Laplace  math  model  to  the 
frequency  response  functions  on  the  modal  disc.  The  choice  of  curve-fitting 
algorithms  is  dependent  upon  the  particular  modal  analysis  software  system  being 
used. 
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4.4.2. i  Parameter  Estimation  Techniques 


Amplitude  Response 

The  simplest  parameter  estimation  technique  is  to  measure  the  magnitude  of  the 
frequency  response  at  each  of  the  frequencies  where  the  magnitude  reaches  a 
maximum.  The  total  response  can  be  used  as  the  modal  coefficient.  This  method 
assumes  a  single  degree  of  freedom  system.  Frequencies  are  determined  visually 
by  noting  where  the  peaks  occur  in  the  frequency  response  function.  No  attempt 
is  made  to  curve-fit  a  Laplace  model  to  the  data.  Damping  may  be  estimated  using 
any  of  several  popular  techniques.  Recommendation:  This  method  does  a  poor  job 
of  separating  modes.  It  is  not  recommended  for  use  on  complex  structures. 

Quaarature  Response 

Another  parameter  estimation  technique  is  to  measure  the  quadrature  or 
imaginary,  component  of  the  frequency  response  at  each  frequency  where  the 
imaginary  component  reaches  a  maximum,  these  being  the  undamped  natural  fre¬ 
quencies  of  the  system.  The  quadrature  response  is  used  as  the  modal  co¬ 
efficient.  This  method  assumes  a  single  degree  of  freedom  system.  Frequencies 
can  be  determined  visually  or  from  a  power  spectrum  composite  of  the  quadrature 
responses  of  all  the  measurements.  No  attempt  is  made  to  curve-fit  a  Laplace 
model  to  the  data.  Damping  may  be  estimated  using  any  of  several  popular 
techniques.  Recomnendation :  This  method  can  be  used  on  systems  that  are  lightly 
damped  and  that  have  modes  that  are  well  separated. 
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Circle  Fit 


A  third  parameter  estimation  technique  is  accomplished  by  presenting  each  mode  of 
the  frequency  response  function  as  a  circle  in  the  complex  plane.  Resonant 
frequency  is  found  where  the  rate  of  change  of  phase  angle  as  a  function  of 
frequency  is  a  maximum.  The  amplitude  and  phase  angle  of  the  complex  modal 
coefficient  is  defined  by  the  location,  diameter  and  orientation  of  the  circle. 
This  method  assumes  a  single  degree  of  freedom.  No  attempt  is  made  to  curve  fit  a 
Laplace  model  to  the  data.  Damping  may  be  estimated  by  the  circle  fit  technique 
originally  developed  by  Kennedy  and  Pancu.  (Ref.  6).  Recommendations:  This 
method  may  be  used  on  systems  that  are  relatively  lightly  damped  and  that  have 
modes  that  are  only  weakly  coupled  in  the  range  where  one  mode  is  predominant. 
The  actual  curve  fitting  procedure  must  be  an  interactive  process. 

Least  Squares 

Eigenvalue  solution  using  least  squares  complex  exponential  algorithm  in  time 
domain— Another  parameter  estimation  technique  is  the  least  squares  complex 
exponential  algorithm  which  solves  the  impulse  response  form  of  the  multiple- 
degree  of  freedom  equations.  The  equations  are  non-linear  in  4  unknowns  and  an 
iteration  process  is  used  to  obtain  a  solution.  The  algorithm  searches  all 
measurements  in  the  declared  frequency  range  and  constructs  a  composite  power 
spectrum  from  the  frequency  response  functions.  The  least  squares  error  as  a 
function  of  number  of  degrees  of  freedom  is  then  printed  out.  From  this,  an 
estimate  is  made  of  the  number  of  modes  to  input  into  the  algorithm.  Additional 
or  "computational "  modes  are  carried  to  compensate  for  noise  or  distortion  in  the 
data.  A  set  of  eigenvalues  is  then  generated  for  each  mode  being  carried  in  the 
frequency  band. 

A- 40 


/ 


I 


Eigenvector  solution  using  least  squares  in  the  frequency  domain-With  these 
fixed  sets  of  eigenvalues,  the  partial  fraction  form  of  the  equations  in  the 
frequency  domain  are  then  solved  for  the  other  two  unknowns,  the  complex 
eigenvectors,  for  each  measurement.  The  whole  process  is  an  automatic  one,  with 
the  modal  analyst  having  the  option  of  accepting  or  rejecting  the  fit  for  any 
measurement. 

Recommendations:  This  method  does  a  good  job  of  fitting  closely-spaced  modes. 
It  has  the  difficulty  fitting  other  modes  in  the  same  frequency  band.  It  is 
recommended  for  use  on  multiple  degree  of  freedom  systems  in  conjunction  with  the 
curve-fitting  technique  described  in  the  following  section. 

Eigenvalue  and  eigenvector  solution  using  least  squares  algorithm  in  the 
frequency  domain— Another  parameter  estimation  technique  is  to  obtain  the 
eigenvalues  and  eigenvectors  by  solving  the  partial  fraction  form  of  the  non¬ 
linear  equations  in  the  frequency  domain  by  least  squares  method.  The  process  is 
iterative  and  all  four  modal  parameters  are  updated  with  each  iteration. 
Starting  estimates  of  all  four  parameters  for  each  mode  may  be  automatically 
generated  by  the  system  or  entered  by  the  modal  analyst  at  the  terminal.  The 
process  is  interactive  allowing  the  analyst  to  add  or  drop  modes,  select  the 
number  of  interations,  and  select  the  type  of  residual  function  to  fit  the  tails 
of  modes  lying  just  outside  the  frequency  band. 

Recommendations:  This  method  does  an  accurate,  dependable  job  of  curve-fitting 
frequency  response  functions.  It  is  recommended  for  use  on  multiple  degree  of 
freedom  systems  in  conjunction  with  the  curve-fitting  technique  described 
earlier  in  this  section. 
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4. 4. 2. 2  Integration  of  Results 


The  current  curve  fitting  computer  programs  operate  on  the  data  from  a  single 
test  run.  During  the  entire  ground  vibration  test  runs  with  several  different 
shaker  locations,  force  levels  and  accelerometer  layouts  are  usually  made.  Inte¬ 
gration  of  the  curve  fitting  results  into  a  whole  airplane  linear  mathematical 
model  of  modeshapes,  frequency  and  damping  is  done  intuitively.  The  most 
important  aids  to  the  engieer  in  doing  this  job  are  the  pretest  analysis  and  the 
frequency  response  function  plots. 

4.4.3  Data  Display 

4.4.3. 1  Modal  Data 

The  modal  data  can  be  presented  graphically  and  in  printouts  of  the  residues 
along  with  the  associated  frequency  and  damping  values  of  each  mode  of  vibration. 
The  graphics  display  can  be  in  the  form  of  animated  mode  shape  displays  of  each 
mode  as  seen  in  the  display  scope  of  the  Fourier  Analyzer  system.  This  display 
can  be  plotted  showing  undeformed  and  deformed  positions  for  a  permanent  record. 
Mode  shapes  can  also  be  graphically  displayed  as  delta  functions  or  vectors 
representing  amplitude  and  phase  at  each  measurement  point  on  the  airplane. 
These  vectors  can  be  shown  in  animation  on  the  display  scope  and  can  also  be 
plotted  along  with  the  complete  outline  of  the  airplane.  Again  permanent  records 
of  these  vector  plots  can  be  made. 

The  printouts  of  the  mode  shapes  are  in  matrix  form  with  each  row  representing  a 
measurement  point  on  the  airplane  and  each  column  representing  a  mode.  The 
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residues  are  expressed  as  a  magnitude  vector  and  a  phase  angle  in  engineering 
units. 

4. 4. 3. 2  Frequency  Response  Functions 

Each  frequency  response  function  can  be  plotted  in  terms  of  its  magnitude  versus 
frequency  and  also  its  phase  versus  frequency.  Permanent  records  of  these  plots 
can  be  made. 

4.4.4  Measures  of  Confidence 

Five  measures  of  confidence  in  curve  fitting  are  plausibility,  wild  points, 
measured  vs  fit  frequency  response  functions,  modal  confidence  factor  and  gen¬ 
eralized  mass. 

Plausibility  is  the  experienced  engineer's  intuitive  review  of  the  modeshapes, 
frequencies  and  dampings.  The  data  is  reviewed  for  reasonableness  in  terms  of 
prior  airplane  designs,  development  experience  on  the  airplane  under  test  and  the 
experiences  during  the  measurement  phase  of  the  test. 

Wild  points  are  readily  apparent  in  animated  modeshape  plots,  provided  the  accel¬ 
erometer  layout  is  not  too  sparse.  The  rigid  body  modes  of  the  airplane  are 
particularly  good  for  spotting  Improperly  installed  or  malfunctioning  accelerom¬ 
eters. 

Comparison  of  the  measured  frequency  response  function  plots  with  the  frequency 
response  functions  computed  from  the  curve  fit  results  is  a  good  check  on  the 
quality  of  the  curve  fitting. 
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The  modal  confidence  factor  is  a  comparison  of  the  curve  fit  modeshapes  from 
different  shaker  locations.  It  is  a  measure  of  the  repeatibility  of  the  data. 
Note  that  a  low  modal  confidence  factor  is  to  be  expected  where  a  shaker  was 
located  near  a  node  point;  the  mode  was  simply  very  poorly  excited  from  that 
point. 

Generalized  mass,  although  often  referred  to  by  investigators  in  the  field,  is 
not  really  a  very  good  measure  of  confidence.  In  this  case  we  are  talking  of  a 
generalized  mass  matrix  which  is  computed  from  a  theoretically  derived  reduced 
mass  matrix  at  the  test  measurement  points,  m,  and  from  the  matrix  of  curve  fit 
modeshapes,  t>.  The  generalized  mass  is  computed  as: 

M  «  m  0. 

The  judgment  usually  made  is  to  compare  the  size  of  the  off  diagonal  terms  with 
the  diagonal.  The  ambiguity  is  in  the  lack  of  a  metric  to  judge  the  quality  of 
the  generalized  masses.  If  the  off  diagonal  terms  are  several  orders  of 
magnitude  below  the  diagonal  then  obviously  the  modes  are  mass  orthogonal.  If 
the  off  diagonal  terms  are  of  the  same  order  of  magnitude  the  modes  are 
definitely  not  mass  orthogonal,  and  the  process  is  in  error  somewhere.  However 
frequently  the  generalized  mass  falls  between  these  two  cases  and  no  clear 
guidance  is  given. 

4.4.5  Modal  Analysis  Software  Systems 

The  state  of  the  art  in  modal  analysis  software  systems  is  developing  rapidly. 
The  manufacturers  of  modal  analysis  hardware  systems  offer  modal  analysis  soft¬ 
ware  packages  with  their  equipment.  Since  the  equipment  is  based  on  general 
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purpose  minicomputers,  the  user  and  the  researcher  may  augment  this  ensemble  with 
more  advanced  software  of  his  own.  One  such  package  is  that  developed  at  the 
University  of  Cincinnati  and  the  University  of  Luven.  A  copy  of  this  package  is 
delivered  to  the  Air  Force  under  this  contact. 

4.5  Follow-On  Activities 

Feedback  into  the  airplane  design  loop  is  the  end  product  of  a  ground  vibration 
test.  The  most  frequent  feedback  mechanism  is  verification  and  modification  of 
the  mathematical  model  of  the  airplane.  Less  frequently  (in  the  United  States) 
the  mechanism  is  the  creation  of  a  mathematical  model  of  the  airplane  directly 
from  test  data. 
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5.0  GENERAL  GUIDELINES 


5.1  Common  Problems 

5.1.1  Friction 

The  friction  between  structural  components/fixtures  is  present  for  most  GVT 
tests.  For  riveted  structures,  this  situation  is  accepted  and  is  similar  in 
structures  of  similar  design. 

Friction  in  nacelle  engine  mounted  systems  has  been  of  considerable  interest  with 
engines  mounted  on  wing  pylons  and  must  be  tested  with  variable  force  amplitude. 

Control  surfaces  often  have  variable  friction  and  break-away  forces  that  must  be 
dealt  with  carefully.  Power  actuated  controls  must  be  tested  with  power-on  to 
determine  working  frequencies  and  transfer  functions. 

5.1.2  Free-play 

Free-play  in  control  surfaces  must  be  carefully  treated.  First,  measurements 
must  be  made  with  and  without  power  to  determine  static  free-play  and  bring 
within  tolerance.  Then  vibration  tests  must  be  conducted  with  frequency- 
amplitude  studies  to  determine  the  effect  of  free-play  on  the  dynamics  of  the 
surface. 
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5.1.3  Damping 


Structural  damping  values  are  usually  determined  for  each  resonant  condition  of 
the  airplane  in  the  GVT.  These  measurements  may  be  made  at  several  amplitudes  of 
excitation  to  determine  the  amount  of  non-linear  effects  on  damping  values. 

5.1.4  Airplane  Asymmetries 

Considerations  must  be  made  to  configurations  where  asymmetric  loading  takes 
place.  This  could  be  from  internal  equipment  placement  or  for  combinations  of 
external  stores. 

5.1.5  \Closely  Spaced  Modes 

Closely  spaced  modes  are  those  which  are  sufficiently  close  in  frequency  and 
overlapping  in  off  resonant  response  that  separation  of  these  modes  into  fre¬ 
quency,  damping  and  modeshape  is  not  readily  accomplished.  Two  measures  may  be 
taken  when  the  online  frequency  response  functions  or  the  pretest  analysis 
indicate  closely  spaced  modes  are  a  problem:  1)  take  an  additional  data  set  with 
a  long  pure  random  record  so  that  fine  frequency  resolution  may  be  achieved  in 
the  neighborhood  of  the  closely  spaced  modes  via  zoom  transforms.  A  reference 
accelerometer  frequency  response  function  may  be  checked  in  real  time  using  a 
hardware  zoom  unit,  which  will  assure  that  sufficient  frequency  resolution  has 
been  acquired  so  that  the  closely  spaced  modes  may  be  resolved  during  curve 
fitting.  2)  a  second  measure  that  aids  in  separating  modes  is  to  repeat  the 
single  point  excitation  at  several  locations.  This  aids  because  modes  which 
appear  to  be  closely  spaced  on  frequency  response  functions  from  one  excitation 
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often  will  be  much  less  coupled  on  frequency  response  functions  from  another 
exciter  location. 


Given  a  comprehensive  set  of  measurements  (i.e.  frequency  response  functions  for 
all  accelerometer  locations  and  shaker  locations  with  adequate  frequency  resolu¬ 
tion  and  signal  to  noise  ratio)  most  closely  spaced  modes  may  be  separated  during 
the  analysis  phase  of  the  test.  This  analysis  will  involve  using  data  from 
several  different  accelerometers  and  different  exciter  locations,  possibly  in 
linear  combinations,  and  attempting  curve  fitting  by  several  multiple  degree  of 
freedom  approaches,  perhaps  with  many  different  signal  conditioning  processes. 
Zoom  transforms  will  be  used  as  necessary  to  achieve  frequency  resolution. 
Although  this  iterative  process  may  be  just  as  time  consuming  as  modal  tuning,  it 
is  substantially  less  costly  because  it  is  performed  off-line  by  one  person  on  a 
computer  whereas  the  modal  tuning  is  done  during  the  test  time,  occupying  the 
test  airplane,  all  the  test  equipment  and  the  full  test  crew. 

5.1.6  Strut  Mounted  Wing  Engines  and  External  Stores 

Nearly  identical  repeated  subassemblies  on  the  wing  give  rise  to  closely  spaced 
modes,  for  which  approaches  are  suggested  in  sections  5.1.5.  A  second  problem 
arises  with  nonlinearities  in  engine  and  external  stores.  Usually  the  non- 
linearities  are  mild  enough  that  they  may  be  averaged  out,  and  documented  in 
separate  testing  as  necessary.  A  third  problem  is  in  repeatibi 1 ity  of  bomb 
installations.  Special  care  must  be  taken  to  insure  that  the  bombs  are  hung  the 
same  every  time,  and  that  free  play  and  friction  are  absolutely  minimized. 
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5.1.7  Hydraulic  Pressure  Source 

A  hydraulic  mule  is  usually  used  to  provide  hydraulic  pressure  to  the  airplane 
during  a  ground  vibration  test.  The  mule  interferes  with  the  test  in  two  ways: 
1)  pressure  pulses  are  transmitted  from  the  pump  in  the  mule  into  the  airplane 
through  the  hydraulic  tubing,  and  2)  acoustic  noise  from  the  mule  exciting  the 
airplane.  Two  approaches  to  this  problem  are  suggested.  The  first  approach 
eliminates  the  problems  due  to  the  hydraulic  mule.  This  approach  is  applicable 
if  the  airplane  hydraulic  system  requires  only  low  flow  rates  while  data  is  being 
taken.  This  approach  is  to  charge  a  large  accumulator,  perhaps  50  gal.,  before 
the  data  run,  then  isolate  the  mule  out  of  the  system  with  an  appropriate  set  of 
valves,  turn  the  mule  off  and  utilize  the  accumulator  as  the  pressure  source 
during  the  data  run. 

A  second  approach  must  be  used  if  flow  volume  beyond  the  accumulator  capacity  are 
required.  The  mule  will  have  to  be  used  as  the  pressure  source.  The  pressure 
pulses  are  attenuated  by  placing  an  accumulator  in  the  output  line  from  the  mule, 
as  close  to  the  mule  as  possible.  The  accumulator  should  be  tuned  to  remove  the 
major  component  of  the  pressure  pulse.  The  acoustic  transmission  is  minimized  by 
placing  the  mule  outside  the  hangar.  If  this  is  not  possible,  completely 
surround  the  mule  with  acoustic  isolation  material. 

5.1.8  Local  Mode  Response 

The  accelerometers  located  near  the  shaker  in  a  single  point  excitation  will 
sense  the  local  modes  as  well  as  the  global  modes  of  the  airplane.  If  the  primary 
objective  of  the  test  is  measurement  of  global  modes,  as  opposed  to  local,  the 
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best  signals  for  this  purpose  will  come  from  the  accelerometers  on  the  symmetric 
other  side  of  the  airplane  from  the  shaker.  Their  signals  will  contain  very 
little  local  mode  motion.  For  global  modes  heavily  instrument  the  opposite  side 
of  the  airplane  from  the  shaker.  For  local  modes  heavily  instrument  on  the  same 
side  of  the  airplane  as  the  shaker. 

5.1.9  Landing  Gear 

Occasionally  it  is  necessary  to  shake  the  landing  gear.  These  tests  are  run  with 
the  gear  down  and  locked  and  the  airplane  jacked  so  that  the  wheels  do  not  touch 
the  ground.  The  dynamic  characteristics  of  the  gear,  as  installed  on  the 
airplane,  are  desired.  This  test  is  difficult  because  the  landing  gear  contains 
a  number  of  nonlinearities,  some  of  which  are  not  very  reproducible. 

The  large  number  of  joints  in  the  landing  gear  are  the  source  of  free  play  and 
friction.  When  the  gear  is  cycled  the  free  play  and  friction  do  not  reproduce. 
The  free  play  must  be  preloaded  out  as  much  as  possible.  The  friction  effects 
may  be  mapped  by  testng  at  several  different  force  levels.  This  should  include 
the  lowest  possible  force  level,  which  will  minimize  the  effects  of  free  play  and 
friction.  To  control  the  effect  of  the  oleo  strut  it  should  be  either  preloaded 
with  a  suitably  high  strut  extend  pressure  or  overfilled  with  oil. 
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5.2  NOTES 


5.2.1  Safety  -  People 

Since  some  of  the  accelerometer  locations  are  well  above  the  floor,  crew  stands 
must  be  used  for  access.  These  stands  must  meet  standard  aircraft  safety  codes 
with  railings  around  all  platforms  and  mechanical  locks  for  hydraulic  jacks. 
Personnel  must  use  harnesses  whenever  they  are  working  on  the  wing,  fuselage  or 
tail  surfaces  that  are  securely  tethered  to  prevent  falling. 

5.2.2  Safety  -  Airplane 

All  testing  is  accomplished  with  a  defueled  and  purged  fuel  system.  The  aircraft 
must  be  securely  mounted,  if  normal  landing  gear  is  not  used  for  support,  with 
adequate  safety  precautions.  Stands  that  are  to  be  used  for  vibrators  must  be 
sturdily  built  and  secured  adequately  to  preclude  damage  to  aircraft.  Powered 
control  surfaces  must  be  locked  adequately  before  attachment  of  vibrators  to 
prevent  inadvertent  control  motion. 

5.2.3  Force  Level  Selection:  A-10  Test  Experience 

Several  excitation  force  levels  were  used  during  the  demonstration  A-10  ground 
vibration  test.  The  best  signals  in  the  A-10  test  were  achieved  at  5  pounds  RMS 
(3-40  Hz  bandwidth)  on  most  main  surfaces  and  at  levels  as  low  as  .2  pounds  RMS 
on  control  surfaces.  At  these  levels  there  is  very  little  visible  motion  on  the 
airplane,  and  the  test  crew  must  be  very  watchful  that  a  test  observer  does  not 
touch  the  airplane  and  inadvertently  degrade  the  data  set  being  taken.  Part  of 
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the  rationale  that  the  lowest  force  level  that  gives  good  signals  is  desirable 

for  determining  linear  mathematical  model  characteristics  is: 

1.  The  blocking  and  shimming  used  to  restrain  control  surface  and  other  free 
play  is  more  effective  at  lower  vibration  levels. 

2.  Free  play  in  many  control  surfaces,  landing  gear  uplocks  and  other  components 
remains  preloaded  out  via  gravity  resting  the  component  against  a  stop, 
provided  the  vibration  level  is  low  enough. 

3.  Non-linear  springs  usually  exhibit  more  nearly  linear  characteristics  at  low 
vibration  amplitudes. 

4.  Hydraulic  actuator  feedback  mechanisms  often  have  a  dead  band;  therefore  the 
chance  of  undesired  feedback  is  minimized  at  low  vibration  amplitudes. 

5.3  Equipment  Portability  And  Van  Installation 

For  portability  the  test  equipment  should: 

1.  Be  modular  with  components  small  enough  to  be  handled  by  one  man 

2.  All  equipment  interfaces  must  be  via  standard  specification  interconnects 
(e.g.,  IEEE  488-1975  specification  for  digital  data  bus) 

3.  Pieces  of  equipment  that  perform  identical  functions  must  be  interchangeable 

4.  Reliable  high  quality  connectors  must  be  used 

For  a  van  installation  the  following  additional  requirements  are  suggested: 

1.  All  equipment  be  rack  mountable 

2.  All  racks  installed  in  the  van  be  shock  mounted 
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3.  Equipment  racks  be  located  in  the  van  to  give  adequate  rear  access 

4.  Adequate  space  provisions  be  made  in  the  van  for  cable  runs 

5.  Air  conditioning  in  the  van  be  sufficient  to  remove  the  maximum  design 
electric  power  coming  into  the  van  plus  100°F  exterior  temperature.  Heating 
should  be  sufficient  for  0°F  exterior  temperature  and  no  electronic 
equipment  operating. 

6.  All  equipment  should  be  adequately  durable  to  withstand  both  the  operating 
and  the  van  transport  environments,  especially  with  regard  to 

-vibration 

-dust 

-temperature 

-humidity 

Note  that  many  items  of  equipment  which  are  suitable  for  use  in  a  laboratory 
or  computer  room  are  not  suitable  for  field  use  in  a  van. 

7.  A  voltage  isolator  should  be  installed  in  the  van  input  electrical  power 
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6.0  GVT  SOFTWARE 


This  section  contains  a  users  manual  and  software  listing  for  the  ground  vibra¬ 
tion  test  computer  programs  furnished  to  the  Air  Force  by  the  University  of 
Cincinnati  under  this  contract.  This  software  is  operational  on  the  Hewlett- 
Packard  5451B. 
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This  Modal  Analysis  System  software  is  a'XP  545iC 
contributed  program  which  allows  one  to  perform  a  complete 
modal  analysis  of  a  mechanical  structure  with  the  use'ttf  the 
S45iC  hardware  and  the  University  of  Cincinnatti  /  University 
of  Lueven  software.  This  system  takes  advantage  of  the\  5451C 
hardware  (with  a  few  exceptions)  to  make  the  necessary  \ 
measurements  to  define  a  structure's  modal  parameters;  in 
addition,  special  software  has  been  included  in  the  form-,  of 
545iC  User  Programs  which  enable  one  to  extract  the  modal 
parameters  from  measured  data,  output  these  results  in  printed 
form,  and  obtain  animated  displays  of  the  structure's  modes  of 
vibration . 


This  document  gives  a  detailed  decsription  of  the  Modal 
System  and  its  operation.  For  best  results,  it  is  recommended 
that  the  user  read  and  understand  this  entire  document  before 
attempting  to  operate  the  system.  If  this  is  done,  one  will  be 
able  in  a  short  time  to  take  advantage  of  the  full  range  of 
system  capabilities  and  to  overcome  any  operational 
difficulties  which  may  arise.  In  chapter  8  there  is  a  "canned” 
step  by  step  example  of  processing  a  given  set  of  measured 
transfer  functions  to  extract  the  modal  parameters. 
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SYSTEM  OVERVIEW 


CHAPTER  2 


2.1  HARDWARE  REQUIREMENTS 


54S1C  Base  System  which  includes: 
2648  terminal 
7900  disc 
64K  memory 


2.2  HARDWARE  OPTIONS 

2631A  Line  Printer  <HPIB> 

2631G  Line  Printer  (HPIB) 

2748B  Photoreader 

289SB  Paper  Tape  Punch 

7210  Digital  Plotter 

9872B  Digital  Plotter 

724SB  Digital  Plotter 

7970  Magnetic  Tape 

Option  600  5440A  Mainframe 

Option  620  54420A  Digital  to  Analog 

converter 

Option  640  54440A  Low  Pass  Filter 
Option  670  54470A  Preprocessor 
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2.3  USER  PROGRAMS 


User 

Pr ograM 

0088 

User 

Pr ograM 

0090 

User 

Pr  ograM 

0009 

User 

PrograM 

0040 

User 

Pr  ograM 

0045 

User 

PrograM 

0100 

Data  Annotation 
Test  ID  &  Setup 
Modal  Program 

Hardware  Zoom  Setup  (option  670) 
Zoom  MeasureMent  PrograM 
Filters  (option  640) 
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DATA  SPACE  REQUIREMENTS 


There  are  two  coreloads  located  on  the  nodal  disc.  The 
first  coreload  contains  the  nodal  software  (Y90,Y9)  for 
extracting  the  nodal  paraneters  fron  the  test  data.  The  second 
coreload  contains  a  nodified  5451C  operating  systen. 


The  first  coreload  <coreload  0)  is  used  in  conjunction 
with  overlays  stored  in  file  8  on  the  disc.  The  anount  of  data 
space  available  in  the  Modal  Systen  is  deternined  when  the 
Fourier  systen  together  with  the  largest  overlay  (overlay  10) 
is  first  excuted .  The  naxinun  block  size  that  can  be  stored  to 
the  disc  is  1034. 


During  the  operation  of  the  systen,  sone  or  all  of  the 
total  data  space  available  will  be  allocated  by  the  Modal 
Systen  (in  the  K  0  connand  of  the  Data  Setup  section  which  is 
usually  perforned  first)  for  storing  systen  paraneters,  nodal 
coefficients,  and  data  for  the  aninated  node  shape  displays. 
The  Modal  Systen  allocates  space  for  these  itens  in  terns  of 
tine  donain,  (block  size  1024)  data  blocks  required  to  perforn 
the  nost  inportant  Modal  functions.  Storage  nay  take  fron  one 
to  fou-r  BS  1034  data  blocks,  depending  on  tne  nunber  of 
structuiNp  test  points  entered  when  the  K  0  Data  Setup  function 
is  perf orned .  The  nunber  of  blocks  required  to  store  nodal 
coefficients  nay  be  conputed  as  follows: 


3  X  No .  of  Modes  X  No .  of  Points 


Nunber  of  Blocks  * 


1024 


Therefore,  if  storage  for  10  Modes  and  ISO  points  was 
desired,  the  systeM  would  require 


3  X  10  X  150 
1024 
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data  blocks  for  storing  Modal  coefficients. 


Based  upon  the  Maxinun  nunber  of  test  points,  the  data 
space  for  Modal  coefficients  will  be  allocated  and  the  Maxinun 
nuMber  of  "Modes  per  session"  calculated.  If  Mode  shape 
inforMation  for  More  Modes  is  required,  the  process  of 
paraeeter  estination  of  the  test  data  will  need  to  be  repeated. 


The  systeM  always  considers  block  0  and  1  to  be 
"available"  since  the  data  arrays  they  contain  can  be  recreated 
if  the  other  systeM  blocks  are  intact.  These  "available” 
blocks  May  be  used  in  norMal  S45i  operations  without  affecting 
the  paraneters  stored  by  the  Modal  SysteM  in  upper  data  space. 


2.5  DISC  SPACE  CONSIDERATIONS 


The  Modal  SysteM  uses  a  data  arrangeMent  for  the  HP  7900 
Disc  which  allows  disc  data  records  0  through  819.  Of  these 
records  0  through  750  are  typically  used  for  data  (transfer 
functions),  and  751  through  799  are  used  for  storing  Modal 
paraneters  and  setup  inforMation  froM  User  PrograM  Y  9.  Test 
setup  inforMation  from  Y  90  is  stored  in  disc  file  7  records  i 
through  19,  file  7  records  20  to  39  can  be  used  to  store 
variable  paraneters  for  use  by  the  5451C  neasurenent  coreload 
(coreload  1). 
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2.6  FOURIER  KEYBOARD  FUNCTIONS 


With  minor  exceptions,  all  Fourier  Systen  keyboard 
functions  contained  in  the  Modal  Systen  coreload  (coreload  0), 
perforn  in  exactly  in  the  sane  Manner  as  the  standard  5451 
enuironent  (see  the  5451C  Operating  Manual).  The  basic 
differences  are  that  there  are  no  "Gold  Key"  functions,  i.e. 
no  variable  paraneters  and  the  graphics  connands  nust  be 
inplenented  using  the  Y  5800  series  user  prograns. 


The  second  core load  contains  a  standard  54S1C  operating 
systeM  with  sone  Modifications  so  that  it  is  conpatiable  with 
the  nodal  software.  The  differences  include;  1.)  there  is  no 
overlay  suaping  capability  2.)  the  data  headers  have  been 
rearranged  3.)  the  naxinun  block  size  that  can  be  stored  to  the 
disc  is  1024.  The  5451C  coreload  has  built  in,  User  Prograns 
5,6,88,100,  the  digital  to  analog  converter  (DAC)  and  the 
hardware  Zoom  (option  670). 


2.7  MODE  SHAPE  PROGRAMS 


User  Progran  0009  is  the  software  which  contains  the 
operational  logic  of  the  Modal  Systen.  This  progran  is  entered 
fron  the  Fourier  Systen  in  the  sane  way  as  a  standard  User 
Progran  —  that  is,  by  entering  "  Y  9  "  on  the  keyboard  or 
terninal.  Once  the  progran  has  been  entered,  there  are  a 
variety  of  nnenonic  connands  available  which  direct  the  systen 
to  perforn  various  functions.  Most  of  the  rest  of  this  Manual 
discusses  this  structure  and  the  uses  of  each  of  the  connands. 


Within  Y  9  there  are  three  nonitors,  and  each  Monitor  has 
associated  with  it  a  set  of  available  connands.  The  nonitors 
in  the  Modal  Systen  are  as  follows; 
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DATA  SETUP  AND  DISPLAY  MONITOR  —  ■  *  ■  MONITOR 

CONNECTIVITY  MONITOR  -  "  C  "  MONITOR 

CIRCLE  FIT  MONITOR -  B  D  "  MONITOR 


The  characters  (if  any)  associated  with  each  Monitor  are 
the  characters  printed  on  the  terminal  after  a  user-entered 
command  has  been  executed .  They  signify  that  the  system  is  now 
waiting  for  a  new  user  command  to  be  entered. 


Once  the  program  has  been  entered,  you  interact  with  the 
system  through  the  system  terminal  or  Fourier  Keyboard.  You 
communicate  to  the  system  by  entering  commands,  parameters,  and 
data  in  turn.  The  system  communicates  with  you  by  printing  out 
messages,  warnings,  parameters,  and  data  as  requested  or 
needed . 


Functionally,  the  Modal  System  can  be  broken  into  four 
sections,  each  of  which  is  described  in  detail  in  a  seperate 
section  of  this  manual. 


2.7.1  Data  Setup  Section 


Using  the  appropriate  commands,  the  details  of  the  test 
setup,  a  spatial  description  of  the  structure  being  tested,  and 
the  order  in  which  the  structure's  points  are  to  be  displayed 
(display  sequence)  are  entered  into  the  system. 


2.7.2  Parameter  Estimation  Section 


This  section  allows  the  user  to  identify  the  modal 
parameters  (frequency,  damping  and  complex  coefficient)  of  up 


To  10  nodes  from  the  frequency  response  data,  print  the  list  of 
parameters  for  inspection,  and  save  the  results  of  this  process 
to  the  disc.  This  process  nay  be  performed  on  measurements 
taken  in  any  of  three  directions  at  as  many  as  250  structure 
points . 


2.7.3  Data  Display  Section 


Using  the  data  accumulated  in  the  Data  Setup  and 
Acquisition  Sections,  you  may  construct  an  animated  display  of 
the  test  structure's  nodes  of  vibration.  In  addition,  the 
animated  nodes  of  individual  structural  "components"  (see 
section  3)  nay  be  displayed  separately  for  closer  examination. 
You  also  have  a  wide  variety  of  commands  available  which 
control  such  items  as  the  size  and  position  of  the  display  and 
the  amplitude  and  speed  of  the  animation. 


2. 7. A  Data  Presentation  Section 


Once  a  display  has  been  calculated  and  displayed  on  the 
5460  display  unit,  a  plot  can  be  initiated  to  the  2648A 
terminal,  7210  plotter,  9872  plotter,  7245  plotter,  or  a  raster 
dump  from  the  2648  terminal  to  a  2631G  line  printer.  Display 
of  ASCII  text  to  the  5460  display  unit  is  also  available  for 
use  in  movie  or  video  tape.  After  the  necessary  frequency 
response  measurements  have  been  made  on  the  test  structure,  the 
above  four  sections  of  the  Modal  System  enable  you  to  perform  a 
complete  modal  analysis  of  that  structure. 


The  above  four  sections  of  the  Modal  System  are  set  up  to 
run  in  a  dynamic  overlaying  environment.  In  other  words,  if  an 
operation  is  requested  that  is  available  in  only  one  of  the 
programs,  that  program  (in  overlay  form)  will  be  loaded  and 
executed.  To  accommodate  this  feature,  the  13  required 
overlays  (out  of  a  total  of  14)  must  be  loaded  into  the  disc  in 
order,  and  the  largest  overlay  (10)  must  be  executed  first 
allowing  the  data  space  to  reallocate.  Thereafter,  any  other 
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overlay  could  be  loaded  but  data  space  must  not  be  reallocated. 


2.8  SYSTEM  INITIALIZATION 


When  the  Modal  System  is  entered  for  the  first  tine,  it 
will  automatically  perform  some  initialization  (further 
initialization  is  performed  during  a  K  0  command).  Once  the 
initialization  has  been  performed,  it  is  never  performed  again 
(in  normal  operation)  unless  the  original  software  is  reloaded 
into  memory,  the  initialization  is  then  performed  when  the 
first  "  Y  9  "  call  is  made  after  each  such  reloading. 


2.9  SYSTEM  BLOCKSIZES 


When  the  Modal  System  is  entered  by  the  call  "  Y  9  "  the 
system  records  the  current  blocksize  (denoted  "external 
blocksize)  and  then  operates  from  an  "internal  blocksize"  which 
is  dependent  upon  the  section  of  the  program  being  used.  These 
blocksizes  are  determined  as  follows: 


DATA  SETUP  SECTION - "INTERNAL"  BS  -  1024 

DATA  AQUISITION  SECTION  -  "INTERNAL"  BS  -  "EXTERNAL"  BS 

DATA  DISPLAY  SECTION  -  "INTERNAL"  BS  *  1024 


The  "internal"  blocksize  of  the  Modal  System  may  not  be 
changed . 


When  the  program  is  exited  normally  (that  is,  by  using 
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connands)  the  external  blocksize  is  always  restored.  If  the 
progran  is  aborted  by  pressing  "RESTART”  on  the  keyboard,  the 
blocksize  resulting  will  be  the  “internal"  blocksize. 


In  general,  before  entering  the  Modal  Systen,  it  is 
advisable  to  set  the  blocksize  (using  the  Fourier  "BLOCKSIZE" 
connand)  to  the  value  desired  for  the  test.  With  this  version, 
the  neasurenents  will  be  Made  using  the  54SiC  software  in 
coreload  1,  rather  than  the  Modal  Systen  software  in  coreload 
0.  Consequently  the  block  size  nornally  used  in  the  Modal 
Systen  software  will  be  1024. 
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3.1  Overview 


There  ere  two  phases' of  the  Modal  Systen  setup.  A  test 
setup  using  User  Progran  Y  90  and  a  data  setup  using  Y  9. 


3.2  User  Progran  Y  90 


This  progran  is  a  utility  progran  written  to  handle 
operations  connected  with  the  nodal  package  that  due  to  space 
or  convenience  could  not  be  progranned  elsewhere. 


Three  pr inary  functions  are  handled  within  Y  90.  The 
first  function  is  that  of  inputting  test  set-up  infornation 
that  will  be  stored  in  the  header  with  each  data  record  stored 
to  the  disc  by  User  Progran  Y  88.  The  second  function  provide 
three  forns  of  run  logs  for  a  disc  with  data  stored  in  the 
fornat  generated  by  Y  88.  The  third  function  is  that  of 
correcting  infornation  stored  in  the  header  area  of  each  disc 
data  record . 


The  progran  operates  in  a  nonitor  node  as  does  the  node 
shape  progran.  The  pronpt  character  generated  by  Y  90  is  " 
This  character  is  written  on  the  terninal  and  indicates  that 
the  progran  is  ready  for  the  next  connand.  Connands  can  be 
entered  fron  the  Fourier  keyboard  or  fron  the  terninal. 


To  enter  the  progran,  overlay  0  nust  be  in  nenory.  At 
bootup,  overlay  0  is  autonatically  brought  into  nenory.  If 


•one  other  overlay  is  currently  in  nenory  a  "Hess  Store"  38  0 
ENTER,  followed  by  a  Hass  store  18  i  Enter,  will  bring  in  the 
correct  overlay.  With  the  correct  overlay  in  nenory  a  Y  90 
connand  is  entered  fron  the  Fourier  keyboard  or  the  terminal. 
After  the  pronpt  character  is  printed,  any  of  the  connands 
which  follow  can  be  entered. 


3 . 2 . i  CLEAR  -  CL 


CL  Ni  N2 


***  CLEAR  BUTTON*** 


Nl  *  First  record  of  disc  file  1  data  space  to  be 
cleared  (default  value  *  i> 

N2  *  Last  record  of  disc  file  1  data  space  to  be 
cleared . 

(If  Nl  is  given,  then  N2  default  value  *  Ni) 
(If  Ni  is  not  given,  then  N2  default  *  819) 


When  data  is  stored  to  the  disc  a  header  with  test 
infornation  is  also  stored.  This  connand  resets  one  word  of 
the  header  so  that  the  Y  88  progran  will  know  that  the  data 
record  is  available  for  storing  new  data. 


This  connand  does  not  alter  the  data  or  the  test  setup 
stored  with  the  data.  In  case  a  record  is  accidentally 
cleared,  it  can  be  "uncleared"  with  the  /R  (REPLACE)  connand 
described  later. 
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3.2.2  KEYBOARD  -  K 


K  Ni  N2  ***  KEYBOARD  BUTTON  *** 


This  coMhind  is  used  to  input  the  test  setup  information 

Ni  =  0  (default  value) 

Enter  test  I.D.  and  date 

Ni  *  i 

Enter  model  number,  serial  number  and  calibration 
of  load  cell  and  transducer ( s) 

Ni  *  2 

Enter  zoom  information  if  zoom  processing  is  used, 
and  test  type  (random  or  impact) 

N2  *  0  (default  value) 

Allows  input  of  information  required  by  part  Ni  of 
this  test  setup. 

N2  *  0 

Initializes  all  information  associated  with  that 
part  of  the  test  setup  that  is  specified  by  Ni . 

Only  parts  2  and  3  can  be  initialized  by  specifying 
N2  *  0. 


The  calibration  numbers  for  the  transducers  are  stored  as 
real  numbers.  If  the  calibration  numbers  is  positive  it 
represents  a  constant  by  which  all  data  in  the  block  can  be 
scaled.  If  the  calibration  is  negative  it  represents  the  disc 
data  record  where  the  appropriate  calibration  curve  is  stored. 
If  the  calibration  is  zero  then  no  calibration  is  specified. 
User  Y  90  does  not  perform  the  calibration  of  the  data. 


The  test  I.D.  is  comprised  of  10  ASCII  characters.  The 
I.D.  should  be  left  justified,  i.e.,  do  not  enter  spaces 
before  the  first  letter  of  the  I.D. 
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3.2.3  LIST  /L 


/L  Ni  N2  N3  ***  LIST  BUTTON  *** 


Ni  *  1 

Run  log  type  i,  listing  is  in  order  of  disc  data 
records  between  N2  and  N3  that  contain  the  test  I.D. 
and  zoom  range  specified.  After  the  /L  1  connand  is 
entered,  the  user  is  proMpted  for  the  test  I.D.  and 
zoom  range.  If  "ZA"  is  specified  for  the  zoom  range, 
then  all  zoom  ranges  are  listed.  The  Analog  In  (RA> 
button  is  equivalent  to  entering  ZA  at  the  terMinal. 


Run  log  type  2,  listing  is  in  order  of  point  nuMbers. 
Shows  data  records  between  N2  and  N3  that  contain  data 
stored  with  test  I.D.  and  zoom  range  entered  by  the 
user.  A  specific  zoom  range  between  ZO  and  Z5  Must  be 
entered.  A  negative  disc  record  nunber  indicates  a 
negative  transducer  orientation. 

Ni  =  3  (default  value) 

Run  log  of  all  test  I.D.'s  and  zoom  ranges  stored  on 
the  disc  between  records  N2  and  N3. 

NI 

Searches  disc  between  records  N2  and  N3  for  records 
stored  with  the  specified  test  I.D.  Each  record  is 
checked  for  zoom  range.  The  nininuM  frequency  and 
delta  frequency  for  each  zoom  range  is  stored.  After 
all  zoom  ranges  in  records  checked,  are  found,  they  are 
printed  out  with  nininuM,  center,  naxiMUM  and  delta 
frequency  for  each  range.  If  Multiple  frequency 
infornation  is  found  for  any  zoom  range  a  warning  is 
printed  for  each  record  with  the  different  frequency 
inforMation.  Switch  register  bit  15  can  be  used  to 
supress  the  warning. 

N2  «  first  record  of  search  (default  value  *=  i> 

N3  *  last  record  of  search 


(If  N2  is  given,  N3  default  *  N2> 
if  N2  is  not  given,  N3  default  *  819) 


The  output  device  is  selected  by  the  switch  register  (bit  6  * 
line  printer  (HPIB  device),  default  *  terminal).  If  the  output 
is  a  line  printer,  then  the  number  of  lines  per  page  is 
adjusted  for  an  11  Inch  page.  If  the  output  device  is  the 
terminal  then  a  RESET  PAGE  command  is  sent  to  the  terminal 
before  the  first  page  is  listed.  The  number  of  lines  per  page 
is  adjusted  to  just  fill  the  terminal  screen.  If  switch 
register  bit  0  is  on  then  the  paging  feature  is  defeated  and 
the  output  consists  of  continuous  lines  with  a  single  header  at 
the  beginning  of  the  list.  Paging  resumes  when  bit  0  is  turned 
off. 


3.2.4  STORE  -  X> 

X>  Ni  ***  STORE  BUTTON  *** 


N1  *  Disc  data  record  where  test  setup  information  will 
be  stored  (default  value  =  19) 


When  setup  information  is  entered  using  the  K  (KEYBOARD) 
command  the  information  is  in  computer  memory  only.  The 
STORE  command  stores  this  information  in  record  Ni  of  the 
disc  data  space. 


3.2.5  LOAD  X< 

X<  ***  LOAD  BUTTON  *«* 


Ni  «=  Disc  data  where  test  setup  information  has  been 
stored  (default  value  *  19)  . 
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This  command  recovers  the  test  setup  information  from  disc 
data  record  Ni  and  places  it  in  computer  memory.  Before 
returning  to  the  monitor  mode  the  test  I.D.  and  the  iite  are 
printed  on  the  output  device. 


3.2.6  PRINT  -  W 


U  Ni  N2  N3 


***  PRINT  BUTTON  *** 


Ni  *  0 

Prints  test  I.D.  and  date  to  the  output  device 
specified  by  the  computer  switch  register  (bit  1)  or 
default  *  terminal,  bit  6  *  line  printer). 

Ni  *  1 

Print  out  information  entered  through  the  KEYBOARD  1  (K 
i)  command. 

Ni  ■  2 

Prints  out  information  entered  through  the  KEYBOARD  2 
(K  2)  command. 

Ni  *  (defaulted) 

Prints  put  all  test  setup  information  entered  through 
The  KEYBOARD  command.  Any  section  initialized  and 
containing  no  setup  information  will  not  be  printed. 

Ni  *  4  N2  N3 

This  command  prints  out  all  test  setup  information 
stored  in  the  header  area  of  record  N2  if  N3  is  not 
entered.  If  N3  is  entered  then  just  the  information  in 
header  word  number  N3  of  record  N2  is  printed  out. 


As  mentioned  above,  the  switch  register  determines  the 
output  device.  If  bit  4  is  turned  on,  then  the  setup  is  dumped 
to  the  paper  tape  punch.  No  output  is  made  to  any  other 
device.  After  punching  out  the  tape,  the  prompt  character  will 
be  printed  on  the  system  terminal. 
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3.2.7  SUBROUTINE  -  < 


< 


***  SUBROUTINE  BUTTON  *** 


This  command  causes  control  to  be  returned  to  the  Fourier 
system . 


3.2.8  POINT  -  /. 


/.  ***  POINT  BUTTON  *** 


Ni  *  Point  number  to  be  searched  for. 

N2  «=  First  disc  data  record  to  be  checked 
(N2  default  value  =  i) 

N3  *  Last  disc  data  record  to  be  checked 

<If  N2  is  given,  N3  default  value  *  N2> 

(If  N2  is  not  given,  N3  default  value  =  819) 


This  command  searches  data  records  N2  to  N3  for  data  with 
response  point  number  Ni .  When  a  record  is  found  that  has 
point  Ni,  then  the  point  number,  response  transducer 
orientation  and  the  disc  data  record  are  printed  out. 


3.2.9  INTEGRATE  -  $ 

S  Ni  N2  ***  INTEGRATE  BUTTON  #** 


Ni  ■  first  disc  data  record  to  be  checked 
<Ni  default  value  *  i) 

N2  =  last  disc  record  to  be  checked 

<If  Ni  is  given,  N2  default  value  *  Ni> 

(If  Ni  is  not  given,  N2  default  value  *  819) 
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The  program  formerly  used  to  store  data  to  the  disc  used 
channels  in  the  data  space  near  the  end  of  the  data  block  to 
store  the  test  I.D.,  date,  point  number  and  transducer 
orientation.  This  format  is  not  compatible  with  the  new  mode 
shape  program.  The  INTEGRATE  command  allows  the  user  to  change 
the  format  by  searching  from  record  Ni  to  N2  for  the  data 
stored  with  the  old  test  I.D.  (  The  user  will  be  prompted  for 
this  information).  These  records  are  restored  on  the  disc  with 
the  new  format  using  the  new  test  I.D.  entered  through  the 
KEYBOARD  i  (  K  i  )  command,  and  pertinent  information  entered 
through  K  2  and  K  3  commands.  The  date,  point  number  and 
transducer  orientation  are  read  from  the  old  format  and  added 
to  the  new  format.  Information  concerning  minimum  and  delta 
frequencies  will  not  be  stored  with  the  data.  These  may  be 
added  using  the  REPLACE  command.  Test  type,  load  cell 
information  and  exciter  position  and  direction  will  be  stored, 
if  entered.  When  a  record  is  changed,  the  point  number  and 
orientation  are  outputted  to  the  terminal  unless  bit  15  of  the 
switch  register  is  on,  in  which  case,  the  program  continues  but 
no  output  is  printed. 


3.2.10  PHOTOREADER  -  R 

R  *#*  PHOTOREADER  BUTTON  *** 


This  command  is  used  to  read  a  punched  paper  tape  of  a 
test  setup.  The  tape  must  have  been  punched  out  using  the 
PUNCH  <P  )  command  or  the  WRITE  command  with  bit  A  turned  on. 
When  this  command  is  given,  a  pause  is  executed  which  halts  the 
computer  giving  the  user  time  to  load  the  paper  tape  reader. 
When  the  reader  is  ready  the  user  simply  pushes  the  RUN  button 
on  the  computer . 


The  same  action  will  result  if  a  KEYBOARD  (K  )  command  is 
given  with  bit  5  of  the  switch  register  turned  on. 
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3.2.11  PUNCH  -  P 


***  PUNCH  BUTTON  *** 


This  connand  punches  out  a  paper  tape  of  the  test  setup. 
The  sane  action  results  if  a  WRITE  <W  >  connand  is  given  with 
bit  4  of  the  switch  register  turned  on. 


3.2.12  REPLACE  -  /R 


***  REPLACE  BUTTON  #** 


Ni  *  first  disc  data  record  where  test  setup  infornation 
is  to  be  corrected.  (Ni  default  value  *  i> 

N2  =  last  disc  record  to  be  corrected. 

(If  Ni  is  given,  N2  default  value  *  Nl> 

(If  Ni  is  not  given,  N 2  default  value  *  8i9> 


This  connand  is  used  to  correct  header  infornation.  All 
records  between  NI  and  N2  will  be  changed  regardless  of  test 
I  D.  or  zoon  range.  The  infornation  that  can  be  corrected  by 
using  this  connand  is  that  which  is  independent  of  the 
transducer.  This  would  be,  for  exanple,  test  I.D->  zoon  range, 
load  cell  infornation  or  frequency  infornation.  After  giving 
this  connand,  the  user  nay  request  a  list  of  header  word 
nunbers  where  changes  nay  be  nade. 


If  this  connand  is  being  used  to  “unclear'1  disc  data 
records  accidently  cleared  using  the  CLEAR  (CL>  connand,  the 
user  should  specify  header  word  nunber  6.  No  further  input  is 
required  in  this  case. 


3.2.13 


CONVOLUTION  -  CV 


CV  Ni  N2  ***  CONVOLUTION  BUTTON  *** 


Hi  *  first  disc  data  record  of  search 
(Ni  default  value  *  i> 

N2  =  last  disc  data  record  of  search 

(If  Ni  is  given,  N2  default  value  *  Nl> 

(If  Ni  is  not  given, N2  default  value  *  8i9> 


This  command  is  used  to  correct  header  information 
associated  with  the  response  transducer.  Disc  data  records  Ni 
to  N2  are  searched  for  either  a  transducer  number  (1,2  or  3>  or 
a  transducer  serial  number.  The  only  valid  transducer  numbers 
are  1,2,  or  3.  If  an  invalid  transducer  number  is  entered, 
then  it  is  assumed  that  the  search  will  be  on  a  transducer 
serial  number  which  the  user  is  then  asked  for.  Each  time  the 
correct  transducer  number  or  a  transducer  serial  number  id 
found,  the  corrected  information  is  placed  in  the  specified 
header  word . 


3.2.14  INTERCHANGE  -  X 

X  Ni  N2  ***  INTERCHANGE  BUTTON  *** 


Ni  *  first  disc  data  record  of  search 
(Ni  default  value  ■  1) 

N2  »  last  disc  data  record  of  search 

(If  Ni  is  given,  N2  default  value  *  NI) 

(If  Ni  is  not  given,  N2  default  value  *  819) 


This  command  is  used  to  interchange  transducer 
information.  Disc  data  records  Ni  to  N2  are  searched  for  point 
number  and  transducer  number .  The  user  must  enter  a  list  of 
where  and  how  the  transducer  information  is  to  be  reorganized. 
For  example,  if  the  number  of  response  directions  is  three  then 
three  lines  should  be  entered  when  asked  for  new  and  old 


transducer  numbers.  If  the  following  were  entered: 


2, 


3, 


3 

i 


Then  the  information  that  was  stored  where  transducer 
number  3  was,  will  be  stored  where  transducer  number  i  was. 
Since  the  transducer  number  can  also  be  interchanged,  the  above 
numbers  refer  to  the  transducer  numbers  before  the  interchange 
is  performed . 


The  user  must  also  enter  a  list  of  header  word  numbers 
corresponding  to  the  information  that  is  to  be  interchanged. 
Word  numbers  19,  47,  48,  5i  and  79  can  be  interchanged, 
however,  word  Si  (transducer  number)  specifies  which  data  block 
that  data  came  from  when  user  program  Y  88  stored  it,  and 
should  probably  not  be  changed. 


Finally,  the  user  must  enter  a  list  of  point  numbers  that 
are  stored  between  disc  data  records  Ni  and  N2  .  The  method  of 
entering  these  point  numbers  is  the  same  as  for  entering  the 
connectivity  file  in  the  mode  shape  program.  Two  numbers  may 
be  entered  per  line  <N3,  N4) .  If  N3  is  not  equal  to  N4  then 
points  N3  through  N4  are  added  to  the  list  begining  with  N3  and 
ending  with  N4 .  If  N4  is  not  entered,  then  only  N3  is  added  to 
the  list.  If  N3  is  less  than  or  equal  to  zero  then  the  list  is 
terminated.  No  editing  of  the  list  is  allowed.  The  user  may 
then  request  a  list  of  the  point  numbers.  The  point  numbers 
should  be  in  the  same  order  as  they  are  stored  on  the  disc. 

This  minimizes  the  amount  of  search  time  required  to  find  the 
needed  data  records. 


The  program  starts  with  disc  data  record  Ni  and  begins 
searching  for  the  first  point  number  in  the  list.  Each  time 
the  correct  point  number  is  found,  the  data  is  checked  to  be 
sure  that  the  transducer  number  has  not  already  been  found.  If 
at  any  point  in  the  search,  an  error  is  found  involving  a 
particular  point  number,  an  error  message  is  printed  out  giving 
some  information  as  to  the  type  of  error  and  the  point  number 
is  skipped,  i.e.  the  headers  are  not  altered.  These  points 
can  be  looked  at  later  to  determine  why  the  error  occured . 
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Errors  that  can  occur  ares 


1)  A  point  at  either  end  of  the  search  range  nay  not 
be  entirely  within  the  range  which  neans  that  fewer 
directions  than  the  nunber  of  directions  specified 
will  be  found. 

2)  The  point  nay  have  been  repeated  within  the  search 
range  resulting  perhaps  in  the  sane  transducer  nunber 
being  found  twice. 

3)  The  transducer  nunber  nay  not  be  a  valid  nunber 
<  i ,  2  or  3) . 


If  a  point  is  repeated  within  the  search  range,  either 
enter  that  point  in  the  point  nunber  list  each  tine  it  is 
repeated  or  onit  it  and  go  back  later  using  a  search  range  that 
covers  only  one  of  the  sets  of  data  at  a  tine.  Otherwise,  only 
the  first  occurance  of  that  point  nunber  will  be  interchanged. 
When  the  search  reaches  later  occurances  of  the  point  nunber, 
it  will  be  searching  for  other  point  nunbers  and  nothing  will 
be  d  one  t  o  these . 


3.2.15  SWITCH  REGISTER  OPTIONS 

OUTPUT  CONTROL 

Bit  0  -  continuous  run  log  output,  no  paging 

Bits  3-8  are  checked,  lowest  nunbered  bit  that  is  on 

sets  logical  unit  nunber  of  output  device.  Default 
(no  bits  on)  sets  logical  unit  nunber  to  i 
( ternina 1 ) . 

Bit  A  -  punch 

Bit  b  -  line  printer 


INPUT  CONTROL 

All  infornation  is  inputted  through  the  Fourier  Systen 
keyboard  or  the  terninal  except  for  when  reading  a 
punched  paper  tape  of  a  test  setup. 
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Bit  5  -  photoreader  input. 


PROGRAM  CONTROL 

Bit  14  -  exits  fro«  certain  portions  of  the  program 
</R,  X  ,  CL ,  /L,  U  ,  CV,  /.) 

Bit  i5  -  supresses  print  out  during  run  logs  and  integrate 
coMfiand.  Print  out  resumes  when  bit  15 
is  turned  off. 


Before  entering  the  Monitor  node  bits  4,  5, 
turned  off  if  found  to  be  on.  Bit  0  is  turned  o 


14,  and 
ff  after 


run  logs. 


15  are 
any 


The  following  nay  be  corrected  using  the  CONVOLUTION  <CV)  or 
INTERCHANGE  <X  )  connand 

WORD  *  USAGE 

ASCII  STORAGE  AREA 

19  TRANSDUCER  ORIENTATION 

INTEGER  STORAGE  AREA 

47 

48 
Si 

REAL  STORAGE  AREA 

79  DATA  CALIBRATION  OR  RECORD  * 


3.3  USER  PROGRAM  Y  9 


The  Data  Setup  Section  of  the  Modal  Systen  is  entered  by 
typing  "  Y  9  *  on  the  systen  terninal .  The  progran  will  then 
respond  by  printing  a  ”  *  "  on  the  terninal,  signifying  that 
you  are  currently  operating  fron  the  “  *  "  nonitor. 


3.3.1  STRUCTURE  DESCRIPTION 


Knowing  how  to  describe  the  test  structure  to  the  systen 
in  the  Display  Setup  Section  is  of  the  utnost  inportance  in 
obtaining  Meaningful  displays  of  the  analysis  results. 


The  Modal  Systen  allows  you  to  describe  a  test  structure 
in  terns  of  up  to  10  conponent  coordinate  systens,  each 
conponent  systen  having  its  own  origin  and  orthogonal 
orientation  with  respect  to  one  global  coordinate  systen.  Once 
these  conponent  systens  have  been  defined,  all  structure 
neasurenent  points  nay  be  described  relative  to  these  systens. 
Furthernore,  points  nay  be  described  within  the  coriponent 
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RESPONSE  TRANSDUCER  MODEL  * 
RESPONSE  TRANSDUCER  SERIAL  * 
RESPONSE  TRANSDUCER  NUMBER 
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coordinate  systems  in  either  rectangular  or  cylindrical 
coordinates,  following  certain  guidelines  discussed  later. 


To  enter  the  data  setup  mode,  a  command  is  entered  from 
the  Fourier  System  or  the  terminal.  The  Hodal  System  is 
entered  and  a  program  will  respond  with  an  "  *  “  prompt  being 
typed  on  the  terminal.  This  indicates  that  it  is  in  the 
monitor.  The  Data  Setup  mode  is  then  called  by  the  following 
commands : 


3.3.2  KEYBOARD  -  K  Commands 

K  Ni  ***  KEYBOARD  »** 


The  basic  procedure  is  as  follows.  Using  the  "KEYBOARD" 
button,  the  sequence  required  for  setup  is: 

K  0  Test  Setup  Information 

K  i  Structure  Components 

K  2  Structure  Coordinates 

K  3  Structure  Connectivity 

K  4  Modal  Coefficients 


After  each  of  the  commands,  questions  or  input  will  be 
required  as  explaned  in  the  following  sections. 


Ni  -  0 


The  test  ID,  date  and  number  of  test  points  are 
requested.  The  maximum  number  of  modes  to  be  analyzed 
per  session  will  be  calculated.  A  request  to  clear 
data  from  a  previous  setup  (components,  geometry, 
connectivity,  and  modal  coefficients)  or  only  the 
current  modal  coefficients  is  made. 
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Test  ID 


*  ten  characters 


Max.  test  points  ■  2S0 

Max.  nodes  ■  10 

Max.  *  of  conponents  *  10 


The  X/Y/Z  coordinates  of  each  conponent  origin  with 
respect  to  the  global  system  nost  be  inputted  <X,Y,£). 
The  orientation  of  the  conponent  coordinate  system  axis 
with  respect  to  the  global  system  axis  <IX,IY,IZ>  and 
the  code  for  rectangular  or  cylindrical  coordinate 
system  (IC)  is  also  inputted. 


The  code  for  inputting  the  orientation  of  the  component 
coordinate  systen  axis  is  used  to  determine  the 
direction  of  the  x,  y,  z  axis  in  the  component  system 
with  respect  to  the  global  systen  axis.  A  plus  or 
minus  one,  two,  or  three  is  inputted  for  the  x,  y,  z, 
axis  respectively .  For  example,  if  the  y  axis  of  the 
conponent  runs  in  the  +x  direction  of  the  global 
system,  then  a  +1  is  entered  for  1Y.  If  the  z  axis  of 
the  component  runs  in  the  negative  y-  direction  of  the 
global  systen,  the  IZ  *  -2  etc.  The  use  of  direction 
cosines  in  not  allowed. 


The  code  for  the  type  of  coordinate  system  is  one  (1) 
for  rectangular  and  zero  <0)  for  cylindrical. 


The  point  nunber,  x,  y,  z,  coordinate  of  the  point,  and 
the  conponent  nunber  is  inputted  for  each  point.  A 
zero  or  negative  entry  of  the  point  number  will 
terminate  the  entry.  To  change  a  point  or  to  edit, 
simply  reenter  the  data  for  the  desired  point. 


This  is  the  input  for  the  connectivity  of  the 
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structure.  Due  to  the  complexity  of  this  input,  the 
next  section  describes  this  input. 


This  is  the  nodal  coefficient  input  and  output  command. 
The  node  number,  point  number,  and  x,  y,  z,  deformation 
and  phase  angle  values  can  be  inputted. 


The  data  inputted  during  the  keyboard  entry  can  be 
printed  out  with  the  print  command  f r on  the  display 
Monitor  . 


As  an  example  of  how  the  points  on  a  structure  nay  be 
spatially  described  to  the  system,  let  us  consider  the 
structure  of  figure  III-l  and  assume  that  we  wish  to 
describe  this  structure  in  terms  of  two  components 
systems,  one  for  the  “box"  and  one  for  the  “cylinder". 
Let  us  also  assume  that  we  wish  to  describe  to  the 
system  the  spatial  locations  of  the  points  narked  "PT 
i"  and  “PT  2"  in  terms  of  the  two  component  coordinate 
systems . 


We  must  first  tell  the  system  the  component  origins  in 
rectangular  coordinates  <X,Y,Z>  With  respect  to  the 
global  origin  and  the  global  axes.  The  origin  of 
component  system  1  is  thus  determined  to  be  (3,0,2), 
while  that  for  system  2  is  (4,1,1). 
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Next  it  is  necessary  to  describe  the  component  systen 
axis  orientation  with  respect  to  the  global  systen 
axis.  All  coMponent  axes  Must  be  co-linear  with  any 
one  of  the  global  axes  so  that  only  three  variables  are 
needed  to  describe  the  orientation  for  each  conponent 
systen  these  variables  are  denoted  IX,  IY,  and  12. 

Each  of  these  variables  is  either  +1,  +2,  or  +3 
depending  upon  which  global  axis  direction  coincides 
with  a  particular  X,  Y,  or  Z  coMponent  positive  axis 
direction.  The  convention  for  deternining  IX,  IY,  IZ 
is  easily  established  by  considering  the  two  sanple 
conponents.  For  coMponent  systen  i,  the  conponent 
positive  X  axis  is  in  the  global  positive  Y  (-4-2) 
direction  (IX  =  +2),  the  conponent  positive  Y  axis  is 
in  the  global  positive  Z  (+3)  direction  (IY  =  +3),  and 
the  conponent  positive  Z  axis  is  in  the  global  positive 
X  (+i)  direction  (IZ  =  +i>  For  conponent  systen  2, 
the  conponent  positive  X  axis  is  in  the  global  negative 
X  (-1)  direction  (IX  =  -i>,  the  conponent  positive  Y 
axis  is  in  the  global  positive  Z  (+3)  direction  (IY  =  + 
3),  and  the  conponent  positive  Z  axis  is  in  the  global 
positive  Y  (+2)  direction  (IZ  =  +2). 


Now  that  the  conponent  infornation  for  this  structure 
has  been  conpletely  specified,  it  necessary  to  enter 
the  coordinates  of  each  point  on  the  structure  relative 
to  the  conponents  Any  conbination  of  points  nay  be 
defined  to  be  on  any  conponent  —  it  is  nost  useful, 
however,  to  define  points  lying  on  a  conplete  physical 
"substructure"  to  be  on  the  sane  conponent.  In  our 
exanple,  therefore,  it  would  probably  be  nost  useful  to 
consider  points  on  the  "box"  in  conponent  .  ,  and  points 
on  the  "cylinder"  in  conponent  2. 


The  coordinates  of  each  point  within  a  conponent  systen 
nay  be  described  in  either  cylindrical  or  rectangular 
coordinates,  depending  upon  which  description  is  nost 
natural  .  (The  "coordinate  type"  is  a  variable  that 
nost  be  given  along  with  the  coorinates  for  each 
point).  Considering  our  exanple,  we  see  that  the  "box" 
part  of  the  structure  is  nost  naturally  described  in 
rectangular  coordinates,  while  the  "cy 1  indr ical "  part 
of  the  structure  is  nost  naturally  described  in 
cylindrical  coordinates.  Therefore,  when  describing 
points  on  these  structure  conponents,  we  would  probably 
use  the  corresponding  coordinate  types  for  our 
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description.  When  cylindrical  coordinates  are  to  be 
used,  the  following  two  rules  apply: 


1) 

The  Z  axis  of  the  cylindrical  (r,  theta,  Z)  system 
should  coincide  with  with  the  Z  axis  of  the 
system . 

2) 

Angle  Convention  : 

Component  X  axis;  theta  *  0  degrees 

Component  Y  axis:  theta  =  90  degrees 

Therefore,  positive  theta  is  determined  by  use  of 
the  "right  hand  rule". 


Using  the  above  conventions,  the  coordinate  data  for  two  points 
of  interest  nay  be  easily  described.  Point  i,  on  structure 
conponent  i,  is  described  in  terms  of  component  coordinate 
system  i  and  rectangular  coordinates,  so  that  (Xi,  Yi,  Zl,  ICi) 
*  <  1,  0,  2,  i  )  ...  <IC,  the  coordinate  type  variable,  is  (0) 
for  cylindrical  and  <i)  for  rectangular  Coordinates). 

Similary,  point  2  on  component  2  is  described  in  cylindrical 
coordinates  as  <  r2,  theta  2,  Z2,  IC2)  *  <  0.5,  45,  i,  0  ). 


For  display  purposes,  it  may  at  times  be  useful  to  define  the 
component  origin  such  that  the  structure  is  "  broken  apart". 
For  example,  if  the  origin  of  component  system  2  in  Figure  III 
-i  had  been  defined  to  be  at  (4,  i,  3>  rather  than  (4,  i,  i), 
the  cylindrical  portion  of  the  structure  would  be  seperated  in 
the  Z  direction  from  the  rest  of  the  structure  on  the  display, 
and  the  "hidden"  corner  of  the  "box"  would  now  be  visible. 

This  is  simply  done  since  the  structure  of  the  Data  Setup 
Section  allows  the  component  origins  and  all  other  structure 
information  to  be  altered  at  any  time. 
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3.3.3  FLOATING  POINT  DATA 


In  the  Data  Setup  Section,  floating  point  values  entered  for 
the  test  point  coordinates  are  stored  in  a  data  "block  floating 
point"  forn  in  a  systen  data  block.  In  the  Data  Acquisition 
Section,  floating  point  nodal  coefficients  are  also  stored  in 
"block  floating  point"  fornat  in  systen  data  blocks.  This 
floating  point  representation  increases  the  systen  capability 
conpared  to  a  sinple  integer  representation ,  but  has 
linitations  of  which  you  should  be  aware  when  operating  the 
systen . 


Figure  III-2  denonstrates  the  inherent  linitation  of  the 
systen's  data  block  floating  point  nunber  storage.  Test  point 
coordinates  ranging  fron  i  to  10000  were  entered  into  the 
systen  (as  an  extrene  case),  and  were  in  turn  stored  by  the 
systen  in  one  of  the  systen  data  blocks.  Due  to  the  fact  the 
scaling  of  this  data  block  is  deternined  by  the  largest  nunber 
it  contains,  it  can  be  seen  that  the  snaller  nunbers  suffer 
greatly  in  accuracy  conpared  to  the  larger  nunbers.  For 
exanple,  the  nunber  10,  three  orders  of  nagnitude  snaller  than 
the  largest  nunber  in  the  block,  has  incured  a  i%  error  in  this 
representation  and  becones  9.9i.  Snaller  nunber  fare  even  nore 
poorly . 


A  reasonable  rule  of  thunb  is  that  the  coordinate  file  and 
the  nodal  coefficient  file  should  differ  within  the  file  fron 
the  largest  to  the  snallest  by  no  nore  2  or  at  nost  3  orders  of 
nagnitude  to  retain  full  calculations!  accuracy. 
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PT 

CORRDINATED 

COMP 

ENTRY 

ERROR/ENTRY 

i 

.58 

.58 

.  S8 

1 

1 

4.2E-1 

2 

1.75 

1.75 

1.75 

1 

2 

1.2E-1 

3 

4.67 

4.67 

4.67 

1 

5 

6  6E-2 

4 

9.91 

9.91 

9.91 

1 

10 

9. 0E-3 

5 

19.83 

19.83 

19.83 

1 

20 

8.5E-3 

6 

49.57 

49  57 

49.57 

1 

50 

8.6E-3 

7 

99.73 

99.73 

99.73 

1 

100 

2.7E-3 

e 

199.45 

199.45 

199 . 45 

1 

200 

2.7E-3 

9 

499.80 

499 . 80 

499.80 

1 

500 

4  0E-4 

10 

999.59 

999.59 

999.59 

1 

1000 

4.1E-4 

11 

1999  77 

1999.77 

1999.77 

1 

2000 

1 . 2E-4 

12 

4999 . 14 

4999  14 

4999 . 14 

1 

5000 

1  7E-4 

13 

9999.45 

9999 .45 

9999.45 

1 

10000 

5.5E-5 

Fig.  III-2  Example  of  Floating  Point  Nunber  Storage 


3.3.4  DATA  SETUP  SECTION  —  Connand  Sunnary 


There  are  five  "files"  which  nay  be  edited  and  listed 
using  the  connands  in  the  Data  Setup  Section: 


File 

0 

:  Test  Setup  Infornation 

File 

1 

!  Structure  Conponents 

File 

2 

s  Structure  Coordinates 

File 

3 

«  Structure  Display  Sequence 
(connectivity) 

File 

4 

:  Modal  Coefficients 

3.3.5  Data  Setup  Section  --  Display  Sequence  File 


The  Display  Sequence  file  is  a  sequence  of  numbers,  each 
of  which  represents  a  point  on  the  structure.  The  sequence 
specifies  the  order  in  which  the  structure  points  are  to  be 
displayed  and  how  they  are  to  be  connected  together  (blanking 
on  or  off) . 


Let  us  consider  the  sinple  plate  structure  of  Figure 
III-3a.  After  describing  to  the  systen  the  locations  of  the 
four  points,  we  now  need  to  decsribe  to  the  systen  how  to 
display  the  points.  We  therefore  wish  to  start  at  point  i 
(arbitrary)  and  draw  a  solid  line  through  points  2,  3  and  A, 
and  finally  a  solid  line  fron  point  4  back  to  point  i.  The 
simplest  display  sequence  which  will  acconplish  this  is: 


Sequence 

Point 

i 

i 

star  t 

at  point  i 

2 

2 

solid 

line  to  point 

2 

3 

3 

solid 

line  to  point 

3 

4 

4 

solid 

line  to  point 

4 

5 

5 

solid 

line  to  point 

l 

The  display  will  cycle  through  this  display  sequence  in 
the  Manner  shown  to  produce  a  display  like  that  of  Figure 
III-3b  (identical  to  that  of  Figure  III-3a). 
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If  it  is  desired  to  "blank"  the  bean  fron,  say,  point  2  to 
point  3,  and  fron  point  4  to  point  i  (leaving  horizontal  lines 
only)  the  display  sequence  file  would  be; 


Sequence 

i 

Point 

i 

star  t 

at  point  i 

2 

2 

solid 

line  to  point  2 

3 

-3 

blank 

to  point  3 

4 

4 

solid 

line  to  point  4 

5 

-i 

blank 

to  point  i 

Note  that, 

to  blank 

the  bean 

,  the  end  point 

blanking  is  negative.  The  display  for  the  above  display 
sequence  file  would  be  that  of  Figure  III-3c. 


When  constructing  a  display  sequence,  it  is  suggested  that 
the  following  three  rules  be  followed; 


If  possible,  close  all  possible  sequence  loops 
explicitly  within  the  display  sequence.  If  this  is  not 
done,  confusing  displays  way  result  (the  deforced  and 
undeforned  structure  displays  nay  be 


Points  on  the  sane  conponent  should  be  "grouped 
together"  in  the  display  sequence  file,  if  possible. 

3) 


The  first  point  of  a  conponent  should  always  be  blanked 
to  give  correct  partial  displays  by  conponent. 


The  fact  that  structure  conponents  can  be  displayed 
individually  (see  Chapter  5)  nust  be  taken  into  account  when 
constructing  a  display  sequence  file,  and  adding  "dunny"  points 
nay  be  necessary  to  obtain  correct  displays  in  all  cases.  For 
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example,  consider  the  "T  -  Plate*'  of  Figure  III-4a,  defined  by 
8  test  points.  Let  us  assune  the  display  sequence  for  the 
T-Plate  is  as  follows: 


a 

/ - 


Fig.  III-4a.  T  -  Plate 


Pts  1-6:  Ccrccnen:  1 

(Horitcr.tel  Plate) 
Pts  7-8:  Cosoorent  1 

(Vertical  Plate) 


Pts  1-6:  Component  1 

(Horizontal  Plate) 
Pts  7-10:  Cor.pcr.ent  2 

(Vertical  Plate) 


Fig.  II I-4e .  T  -  Plate  with  "Du^y”  Points 


Let  us  also  assume  we  would  like  to  consider  the  T-Plate 
comprised  of  two  components,  one  for  the  horizontal  plate  and 
one  for  the  vertical  plate.  We  therefore  define  points  i  -  6 
to  lie  on  component  i,  and  points  7  and  8  to  be  on  component  2 


When  both  components  1  and  2  are  displayed,  the  desired 
display  of  Figure  III-4b  results.  However,  when  only  one  of 
the  two  components  is  displayed,  the  display  sequence  entries 
for  points  on  other  components  are  effectively  non-existent. 
When  component  i  alone  is  displayed,  this  is  of  no  consequence 
as  Figure  III-4c  shows  however,  the  display  of  component  2 
alone  is  incomplete  due  to  the  missing  lines  formerly  provided 
by  the  simultaneous  display  of  component  i  (Figure  III-4d). 


Figure  lll-4e  shows  the  T-Plate  redefined  with  dummy 
points  9  and  10,  defined  to  be  in  the  sane  locations  as  points 
3  and  6  except  on  component  2  rather  than  component  i, 
included . 


The  above  display  sequence  file  happens  to  be  a  good 
example  of  a  display  sequence  following  the  rules  given  above 
that  is,  all  sequence  loops  (there  are  three  —  one  for  each 
component  seperately  and  one  for  the  two  components  combined) 
are  explicitly  closed,  and  the  points  defining  components  i  and 
2  are  "grouped  together"  in  the  file.  To  illustrate  what 
happens  if  these  rules  are  not  followed,  you  should  consider 
the  the  following  display  sequence  file  for  the  T-Rlate  of 
Figure  III— 4e< 


Sequence 


Point 


and  why  it  would  be  unsatisf actor y  for  displaying  only  one 
T~Plate  component  at  a  time. 


3.3.6  Data  Setup  Section  --  Monitor  Commands 


Note:  ()  denotes  optional  parameters 


3.3.7  KEYBOARD  -  K  3 

K  3  ***  KEYBOARD  BUTTON  *** 

This  command  is  used  to  enter  the  Display  Sequence  Monitor. 

3? 
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This  is  a 
on  trying 
nunber  of 


very  inportant  input  and  great  effort  has  been  spent 
to  automate  the  connectivity  file.  The  naxinun 
connections  cannot  be  greater  than  500. 


In  this  node,  a  secondary  nonitor  is  used  to  input  the 
connectivity.  This  nonitor  is  denoted  "C"  and  uses  the 
following  connands  for  input: 


3.3.8  COUNT  -  * 

#  Ni  ***  COUNT  BUTTON  *** 


This  connand  can  be  used  to  reset  the  counter  to 
the  value  Ni .  The  counter  is  the  nunber  of  the  last 
display  vector  (connectivity)  entered.  If  a  new 
display  sequence  is  ever  required,  the  old  connectivity 
file  can  be  eliminated  by  setting  the  counter  to  zero 
(Ni  *  0).  The  connectivity  file  is  stored  using  line 
nunbers  with  one  line  nunber  per  vector  (the  vector  is 
the  ending  point  nunber  of  the  bean  trace)  . 


3.3.9  KEYBOARD  -  K 

K  ***  KEYBOARD  BUTTON  *** 


The  Keyboard  connand  is  used  for  entering  the  connectivity 

file. 


After  the  K  connand  is  issued,  the  conputer  waits  for 
input  Ni  and  N2  can  be  entered.  If  N2  is  greater  than  NI  in 
the  connectivity  file,  the  counter  is  increnented  and  the 
connectivity  fron  Ni  to  N2  is  sequentially  stepped.  If  N2  is 
defaulted,  the  Ni  value  is  added  to  the  connectivity  file  and 
the  counter  is  increnented.  If  N2  is  less  than  Ni  the 
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connectivity  is  incremented  from  N2  to  Ni  .  This  input  is 
terminated  by  inputting  zero  <0)  for  Ni . 


If  it  is  desired  to  move  from  point  A  to  another  point 
without  drawing  a  line,  Ni  should  be  equal  to  a  negative  of 
point  B. 


Line  numbers  are  automatically  calculated  and  updated  by 
way  of  the  counter.  Termination  returns  the  user  to  the 
Display  Sequence  monitor. 


3.3.10  DELETE  -  /D 

/D  Ni  (N2)  ***  DELETE  BUTTON  *** 


This  command  will  delete  the  connectivity  file  from 
counter  Ni  to  N2.  If  N2  is  defaulted  then  Ni  will  be  deleted. 


3.3.11  INSERT  -  /I 

/I  Ni  ***  INSERT  BUTTON  *** 


This  command  will  insert  after  counter  value  Ni .  After 
the  /I  Ni  command  is  input,  then  the  computer  will  wait  for  an 
input  where  N2  in  entered.  The  value  N2  will  be  entered  into 
the  connectivity  file.  Additional  values  can  be  entered  until 
a  zero  value  is  inputted  and  control  is  returned  to  the 
connectivity  file  monitor.  Terminate  with  a  0. 
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3.3.12  PHOTOREADER  -  R 


R  ***  PHQTOREADER  *♦# 


This  connand  will  read  a  paper  tape  that  has  been  punched 
as  a  result  of  the  print  connand. 


3.3.13  REPLACE  -  /R 


/R  Ni  ***  REPLACE  BUTTON  *** 


This  connand  is  used  just  like  the  insert  connand  but 
elininates  line  Ni  with  the  first  entry. 

3.3.14  PRINT  -  U 

W  <Ni )  (NS)  *$*  PRINT  BUTTON  *** 


3.3.15  RETURN  -  < 


< 


**#  SUBROUTINE  RETURN  BUTTON  *** 


This  connand  will  return  control  to  the  display  Monitor. 


3.4  DATA  SETUP  SECTION  ~  I/O  DEVICES 


The  I/O  device  selection  in  the  Data  Setup  Section  is 
controlled  by  Switch  Register  bits  4,  5,  6,  and  8. 


Input:  On  input,  the  input  device  for  the  data  entered 
is  determined  by  bit  5  or  bit  «  as  follows: 


Bit  5 

Bit  8 

INPUT  DEVICE 

OFF 

OFF 

TERMINAL 

OFF 

ON 

MAG  TAPE,  if  available 

ON 

OFF 

PHOTOREADER,  if  avail. 

ON 

ON 

PHOTOREADER,  if  avail. 

Output : 

On  output,  the 
bit  4  and  bit  6 

output  device  is  determined 
as  follows: 

Bit  5 

Bit  6 

OUTPUT  DEVICE 

OFF 

OFF 

TERMINAL 

OFF 

ON 

LINEPRINTER,  if  avail 

ON 

OFF 

PUNCH,  if  avail. 

ON 

ON 

PUNCH,  if  avail  . 
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4.1  OVERVIEW 


The  Parameter  Estimation  Section  of  the  nodal  system  is 
designed  to  obtain,  automatically ,  data  from  file  one  of  the 
mass  storage  area  of  the  disc,  check  to  determine  if  the  data 
belongs  to  the  current  data  set,  and  use  one  of  four  parameter 
estimation  techniques  to  determine  the  real  or  complex  nodal 
coeff icients .  The  four  estimation  techniques  available  are  as 
follows > 


1)  Amplitude  (single  degree  of  freedom) 


2)  Quadrature  (single  degree  of  freedom) 


3)  Kennedy-Pancu  circle  fit  (single  degree 
of  freedom  with  constant  residual) 


4)  Linear  least  squares  (multiple  degree  of 
freedom  with  residual  mass  and  stiffness) 


A  linear  least  square  time  domain  program  to  calculate 
global  frequency  and  damping  values  is  available  to  all  four 
techniques  but  is  ''squired  for  only  the  last  technique.  This 
eigenvalue  algorithm  involves  multiple  measurements  in  the 
calculation  of  frequency  and  damping  to  be  used  for  residue 
estimation . 
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4.2  MEASUREMENT  NOTES 


In  order  to  identify  the  nodes  of  vibration  of  a 
structure,  it  is  necessary  that  frequency  response  data  be 
Measured  on  the  structure  in  such  a  way  that  the  resulting  data 
is  sufficient  to  identify  all  nodes  of  interest  at  all  points 
of  interest.  The  Modal  Systen  requires  that  these  neasurenents 
be  nade  between  a  fixed  "inputH  point  (the  point  at  which  the 
force  is  applied)  and  nultiple  "response"  points  (the  point  at 
which  the  response  to  the  input  force  is  neasured),  or  a  fixed 
"response"  point  and  nultiple  "input"  points. 


The  frequency  response  neasurenents  nay  be  nade  using 
transient  or  randon  inputs  and  baseband  or  Band  Selectable 
Fourier  Analysis  (ZOOM). The  type  of  structure,  testing 
convenience,  and  desired  quality  of  the  results  being  the  prine 
consideration  in  naking  the  choice  between  then.  Any  of  the 
"standard"  frequency  response  prograns  docunented  in  the  54Si 
Operating  Manual  nay  be  used,  or  Modified  to  neasure  the 
required  data,  in  addition,  these  prograns  nay  be  supplenented 
by  the  use  of  Y  5,  and  Y  6  (ADC  overload,  and  nunber  of 
channels  check).  Coreload  nunber  1  contains  the  54S1C  software 
that  allows  neasurenents  to  be  nade  using  the  54420  DAC,  and 
the  54470  Preprocessor  (Zoom) .  Y  88  is  also  part  of  this 
coreload  and  is  used  to  store  the  neasured  data  to  the  disc 
with  the  proper  infornation  so  the  data  can  be  used  by  the 
Modal  Systen  (coreload  0).  Y  90  is  also  used  in  conjunction 
with  Y  88  and  both  of  these  are  described  elsewhere  in  this 
nanual  . 


4.3  EIGENVALUE  ESTIMATION 


The  task  of  deternining  danped  natural  frequencies  can  be 
perforned  one  of  three  ways< 

1)  Manually  (channel  Nunber) 
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2>  Cursor  (channel  Number) 


3)  Least  Squares  Eigenvalue  (frequency  and  damping) 


With  the  first  two  methods,  only  one  piece  of  data  can  be 
used  at  a  time.  Therefore,  it  is  wise  to  scan  at  least  one 
frequency  response  function  from  all  major  structure  components 
so  that  no  important  modes  are  inadver tantly  missed.  Operation 
of  the  cursor  automatically  stores  the  channel  number  and 
frequency  with  the  designated  mode. 

Uith  the  third  method,  a  linear  least  squares  time  domain 
method  based  upon  complex  exponentials  is  used  to  determine  the 
exact  damped  natural  frequency  and  damping  rate.  This  process 
can  involve  any  and/or  all  of  the  measurements  taken.  The 
nearest  channel  number  and  a  calculation  of  bandwidth  (number 
of  channels  on  each  side  of  the  center  frequency)  is  also 
performed  to  allow  for  any  method  of  residue  estimation. 


4.3.1  EIGENVALUE  -  MANUAL 


With  this  method,  a  data  record  of  representative  data 
will  be  requested  followed  by  a  request  for  mode  and  bandwidth. 
After  this,  the  channel  number  can  be  entered  from  the 
terminal.  (some  valid  data  must  be  in  block  zero  in  order  for 
the  frequency  calculation  to  be  correct).  No  information 
concerning  damping  is  utilized. 


Once  the  information  is  stored,  the  mode  number  and  bandwidth 
question  will  be  repeated.  To  exit,  a  mode  number  of  zero  is 
entered . 


4.3.2  EIGENVALUES  -  CURSOR 
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In  this  method,  a  request  for  a  representative  data  record 
is  the  first  question  asked,  followed  by  the  mode  number  and 
bandwidth.  Again,  damping  information  is  not  calculated  or 
utilized  . 


After  this  data  is  inputted,  block  zero  is  displayed  with 
the  cursor  superimposed.  The  switch  register  is  used  to 
control  the  cursor: 


Switch  7  is  fast  right 
Switch  8  is  step  right 
Switch  i3  is  fast  left 
Switch  12  is  step  left 

Switch  ii  is  expand  around  cursor  position 

Switch  9  returns  data  to  computer 

Switch  6  resets  cursor  to  zero  channel 

Switch  5  aborts  the  cursor  and  returns  a 
zero  channel  number  for  the 
currently  requested  mode 


Once  data  has  been  returned  to  the  program  a  new  mode 
number  is  requested.  When  finished,  a  mode  number  of  zero  is 
entered. 


4.3.3  EIGENVALUES  -  Linear  Least  Squares  Tine  Domain 


This  method  allows  the  calculation  of  eigenvalues  for  the 
system  in  certain  frequency  ranges  of  interest.  So,  a  first 
request  will  be  for  a  representative  data  record,  followed  by 
some  questions  of  starting  channel  (manual  or  cursor  entry)  and 
number  of  channels  in  calculation.  The  range  of  interest  is 
defined  by  starting  channel  and  number  of  points  to  be  used 


(64,  128,  256). 


Because  the  method  uses  a  great  number  of  measurements,  one 
must  enter  the  first  and  last  record  of  data  to  be  taken  into 
account,  as  well  as  the  approximate  number  of  measurements  in 
the  range. 


4.4  RESIDUE  -  ESTIMATION 


At  the  present  time,  the  Modal  System  is  capable  of 
estimating  complex  modal  coefficients  with  the  limitation  of 
magnitude  resolution  of  i  in  2000  and  phase  resolution  of  1  in 
10.  The  ability  to  animate  a  display  is  limited,  though,  to 
real  modes.  With  this  in  mind,  the  parameter  estimation 
techniques  are  as  follows-. 


i)  Amplitude  -  The  magnitude  and  phase  of  a  given 

frequency  is  recorded.  The  frequency  can  be  chosen 
manually,  with  the  cursor,  or  with  the  "starting  value 
algorithm"  . 


2)  Quadrature  -  The  value  of  the  quadrature,  or  imaginary, 
part  of  the  data  at  a  specified  frequency  is  recorded 
as  the  magnitude  and  the  angle  is  assumed  to  be  90 
degrees.  The  frequency  can  be  chosen  manually,  with 
the  cursor,  or  with  the  "starting  value  algorithm". 


3)  Kennedy-Pancu  Circle  Fit  -  The  Modal  System  identifies 
modal  coefficients  from  measured  frequency  response 
data  by  fitting  circles  in  the  complex-frequency  (or 
argand  plane)  through  the  points  centered  at  a  mode's 
natural  frequency  and  a  number  of  data  points  on  either 
side  of  the  center  channel. 


The  magnitude  is  determined  from  the  diameter  of 
the  fitted  circle  while  the  phase  is  determined  in  a 
similiar  manner  as  in  method  one  but  a  "displaced 
origin"  is  utilized  to  eliminate  effects  of  other 
modes.  The  frequency  can  again  be  chosen  manually, 
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with  the  cursor,  or  with  the  "storting  value 
algorithm" . 


4)  Linear  Least  Squares  Frequency  Domain  The  Modal  System 
executes  a  least  squares  error  estimation  of  the  data 
within  a  64-126-256  data  channel  range  based  upon  a 
frequency  domain  model  of  a  multiple  degree-of-freedom 
system.  The  process  is  linear  since  the  starting 
values  of  frequency  and  damping  are  not  allowed  to 
change  from  measurement  to  measurement .  The  results 
are  the  complex  residues  for  the  measurement.  The 
model  is  based  upon  the  following  equation; 


N 

H< i j)  *  [SUM] 
r*l 


A<rij> 

S  -  P(r) 


A(ri j>* 

S  -  P (r  ) 


Where  A(r) 

S 

Complex  residue 

A<r>* 

a 

Complex  conjugate 

P  <r ) 

a 

a(r)  ♦  j  w(r>  *  Eigenvalue 

w(r ) 

K 

Damped  natural  freq. 

a  <r ) 

a 

Damping  coefficient 

4.5  COMPARISON  OF  TECHNIQUES 


The  choice  of  parameter  estimation  technique  depends  upon 
the  system  being  tested.  Each  technique  assumes  certain 
character 1st ics  and  will  not  work  well  when  these  conditions 
are  not  met . 


The  amplitude  and  quadrature  methods  are  limited  since  they  use 
frequency  response  values  at  only  one  frequency  for  each  mode. 
This  is  a  rapid  and  straight  forward  process  which  is  the  basic 
attraction  of  these  methods.  In  cases  of  close  modes  or  high 
damping,  the  effects  of  nearby  modes  are  not  eliminated, 
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thereby  giving  non-unique  nodes.  Additionally ,  the  finite 
resolution  gives  rise  to  potentially  large  errors  if  the  danped 
natural  frequency  is  not  described  correctly. 


To  provide  nore  sophistication ,  the  circle  fit  nethod  can 
be  used  to  inprove  points  in  the  neighborhood  of  the  danped 
natural  frequency.  This  gives  better  results  as  long  as  a  node 
is  present  in  the  argand  diagran  (that  is,  not  at  a  node). 


Again,  resolution  can  be  a  problen  (as  well  as  noisy 
data),  but  better  accuracy  can  be  obtained  compared  to  the 
first  two  nethods.  Even  so,  if  the  node  coefficient  becones 
zero  or  if  nodes  are  highly  biased  or  coupled,  this  nethod  will 
give  confusing  results  and  require  nanual  control  of  the  fit. 
When  run  autonatically ,  the  speed  is  not  objectional  but  when 
run  manually,  the  lack  of  speed  becones  a  problen. 


In  the  situation  where  the  first  three  nethods  fail,  the 
linear  least  squares  frequency  domain  fit  will  provide  some 
success.  This  technique  involves  a  multiple  degree  of  freedom 
frequency  domain  model  to  generate  estimates  of  residues  based 
upon  fixed  values  of  frequency  and  damping  in  nodes  present 
within  a  frequency  range.  To  account  for  effects  of  modes 
below  the  minimum  frequency,  a  residual  mass  term  (function  of 
the  inverse  of  frequency  squared)  is  included.  Likewise,  to 
account  for  modes  above  the  maximum  frequency  a  residual 
stiffness  tern  (conplex  constant)  is  included.  Using  this 
approach,  closely  spaced  nodes  of  vibration  nay  often  be 
seperated . 


4.6  CIRCLE  FIT  PRESENTATION 


After  a  circle  fit  is  conputed 
displays  the  following  waveforms  on 


for  a  node,  the  system 
the  5460  display  screen: 


i>  The  circle  fit  for  the  present  node  (this  is  only 
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displayed  with  the  5460  switch  in  the  COHPLEX  position 


2)  The  data  center  channel  and  (BU  +  15)  data  points  on 

either  side  of  the  center  channel  (if  they  exist). 

3)  (intensified).  The  data  center  channel  and  (BU)  data 

points  on  either  side  of  the  center  channel  (if  they 
exist ) . 


The  data  points  nay  not  exist  for  display,  for  exanple,  if 
the  center  channel  of  a  node  was  channel  5  and  the  bandwidth 
was  2.  In  this  case,  the  display  of  (2)  above  would  extent 
fron  data  channel  0  to  channel  22. 


If  the  node  center  channel  is  near  either  end  of  a  data 
block,  the  systen  will  use  as  nany  points  as  possible  up  to  the 
nornal  linit  to  calculate  the  circle  fit  and  display  the 
results . 


The  circle  fit  display  is  used  to  judge  the  acceptability 
of  the  circle  fit  and,  hence,  the  accuracy  of  the  nodal 
coefficient  deternined  fron  it.  In  general,  the  data  points 
should  lie  near  or  on  the  circle.  Due  to  the  finite 
resolution,  the  points  nay  not  be  evenly  spaced  on  the  circle, 
especially  for  very  lightly  danped  nodes.  A  "typical1*  circle 
fit  display  (for  BU  =  2  )  is  shown  in  Figure  IV  -i . 
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'Typical"  Circle  Fit  Display  (for  BW-2) 


4.7  PARAMETER  ESTIMATION  -  Connand  Su««ary 


Notei  <  >  Denotes  optional  paraneters 


4.7.1  ADD  -  A+ 


A+ 


***  ADD  BUTTON  *** 


This  node  of  operation  is  prinarily  conser vational . 
Seperate  sub-nonitors  are  available  for  circle  fit,  starting 
value  algorithn,  and  linear  least  squares  frequency  donain 
paraneter  estination. 


The  systen  pronpts  with  a  request  to  enter  the  option  to 
be  used  to  deternine  the  frequencies  end  danping  as  follows; 


1) 

MANUAL 

2) 

CURSOR 

3) 

LEAST  SQUARES  ESTIMATE 

4) 

CURRENTLY 

SELECTED  VALUES 

5) 

RETURN  TO 

MONITOR 

The  nost  connon  entry  is  Least  Squares  Estinate,  and  it 
can  be  used  with  any  nethod  to  deternine  the  nodal 
coefficients 
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4.8 


LEAST  SQUARES  EIGENVALUE  -  COMMAND  SUMMARY 


This  monitor  is  conversational ,  and  it  will  prompt  the 
operator  as  to  the  disc  record  number  of  typical  test  data  and 
whether  the  choice  for  the  starting  channel  is  a  manual  or 
cursor  entry. 


It  will  also  ask  the  number  of  points  to  be  used  in  the 
parameter  estimation  (typically  128),  and  it  will  ask  the  range 
of  disc  records  to  be  used  to  determine  the  frequencies  and 
dampings . 


After  answering  the  above  question,  the  system  will  search 
all  disc  records  with  the  5460  nixie  display  indicating  which 
measurement  it  is  currently  working  with.  It  will  then  print 
out  a  list  of  the  Least  Squared  Error  as  a  function  of  the 
number  of  degrees  of  freedom.  At  this  point,  the  "  SP  " 
command  is  used  to  specify  the  number  of  degrees  of  freedom  to 
be  used.  Typically  one  looks  for  the  number  of  degrees  of 
freedom  where  the  Least  Squared  Error  has  reached  a  "minimum" 
where  more  degrees  of  freedom  does  not  significantly  further 
reduce  the  error  . 

One  then  uses  the  "  D  "  and  "  CL  "  commands  to  view  where 
the  modes  are  relative  to  a  typical  measurement  display.  Modes 
can  be  deleted  using  the  "  /D  "  command,  and  the  revised  list 
of  modes  can  be  printed  with  the  "  U  *  command. 

When  the  number  of  modes  preserved  are  what  is  desired  the 
Eigenvalue  program  is  exited  using  the  "  <  "  command.  At  this 
point  the  system  prompts  the  operator  to  pick  the  method  to  be 
used  to  determine  the  modal  coefficients.  The  options  are  as 
follows : 


1)  MAGNITUDE 

2)  IMAGINARY  PART 

3)  REAL  PART 

4)  KENNEDY-PANCU  CIRCLE  FIT 

5)  LEAST-SQUARES  FREQUENCY  DOMAIN 

6)  RETURN  TO  MONITOR 


4.8.1  POWER  SPECTRUM  -  BP 

SP  Ni  ***  POWER  SPECTRUM  *** 


This  connand  calculates  the  relative  least  squares  error 
for  degrees  of  freedon  Nl .  In  the  automatic  node,  Nl  =  32.  If 
Ni  *  0,  an  interactive  node  requests  the  range  of  degrees  of 
freedon  Ni  to  N2. 


If  Nl  is  a  value  in  the  range  of  2  to  40,  the  error  as 
well  as  the  realistic  nodal  paraneters  are  printed  out. 


The  value  of  Ni  cannot  be  defaulted. 


4.8.2  DELETE  -  /D 


/D  Ni 


***  DELETE  BUTTON  *** 


This  connand  deletes  the  nodal  paraneters  for  node  Ni  fron 
the  list  of  nodes  created  by  a  "  SP  Ni  "  connand.  The  nodal 
paraneter  list  is  innediately  renunbered.  *■ 

N  . 


4.8.3  CLEAR  -  CL 

* 

CL  Nl  ***  CLEAR  BUTTON  4*** 


This  connand  clears  the  channel<s>  nearest  to  the 
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calculated  damped  natural  frequency(s)  and  then  performs  a  Log 
Magnitude  calculation  of  the  frequency  response  function.  The 
command  give  visual  identification  as  to  the  location  of  the 
damped  natural  frequencies  with  respect  to  the  peaks  in  the 
composite  power  spectrum  display. 

If  the  clear  command  is  given  a  second  time  the  cleared 
channels  go  to  the  top  of  the  screen  instead  of  the  bottom  of 
the  screen . 


4.8.4  DISPLAY  -  D 


D  (No  Parameters)  ***  DISPLAY  COMMAND  *** 


Calculates  a  magnitude  display  of  the  composite  power 
spectrum  data  to  be  used  for  visual  iden tif icati on  of  the 
location  of  the  damped  natural  frequencies. 


4.8.5  PRINT  -  W 

W  (No  Parameters)  ***  PRINT  BUTTON  *** 


This  command  prints  the  current  values  of  the  modal 
parameters  to  the  output  device  as  selected  by  the  switch 
r egister . 


4.8.6  RETURN  -  < 


<  (No  Parameters) 


#**  SUBROUTINE  RETURN  BUTTON  *** 
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This  command  returns  to  the  parameter  estimation  logic  to 
allow  the  residues  to  be  estimated  based  upon  the  current  list 
of  starting  values.  If  too  many  starting  values  have  been 
identified,  the  values  must  be  reordered  according  to 
importance  or  some  must  be  deleted. 


4.9  LEAST  SQUARES  RESIDUES  -  COMMAND  SUMMARY 


The  system  will  prompt  the  operator  to  clear  the  current 
modal  coefficients  (enter  a  0  to  clear  or  a  space  not  to 
clear).  It  will  then  ask  which  option  is  to  be  used  for  the 
residual  terms.  It  then  asks  whether  an  interactive  or 
automatic  mode  is  desired  (typical  response  is  automatic).  The 
next  question  asked  is  the  range  of  disc  records  to  be  used  for 
the  current  test.  There  are  some  switch  register  options 
listed  at  this  point,  the  most  common  one  is  bit  2  which  is 
useful  for  a  printout  of  the  modal  parameters.  The  system  will 
then  begin  fitting  each  measurement  and  displaying  in  a 
front-back  mode  the  data  versus  the  fit.  To  continue  on  to  the 
next  measurement  a  "  D  -1  *  or  a  "  -i  "  is  entered  on  the 
terminal . 


4 . 10  LEAST  SQUARES  RESIDUES  -  AUTOMATIC  MODE 


4.10.1  DISPLAY  -  D 

D  Ni  N2  #**  DISPLAY  BUTTON  *** 


This  command  is  used  to  display  channels  Ni  through  N2  of 
the  raw  and  theoretical  data  in  a  front  to  back  format.  To 
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exit  the  display,  an  integer  nunber  Ni  is  entered.  If  N1  *  0, 
this  measurement  is  skipped  and  the  next  Measurement  in  the 
range  is  read  froM  the  disc.  If  Ni  <  0,  the  data  is  saved  and 
the  next  measurement  is  is  processed. 


4.1i  LEAST  SQUARES  RESIDUES  -  INTERACTIVE  MODE 


In  this  node  a  double  asterisk  (ft#)  is  displayed  as  the 
Monitor  prompt  character. 


4 . ii . i  MASS  STORE  -  MS 


MS  Ni  N2 


***  MASS  STORE  BUTTON  »»» 


This  command  operates  the  same  way 
command.  It  is  used  to  store  the  nodal 


as  the  Fourier  system 
data  to  the  disc. 


4.11.2  PRINT  -  U 


U  (no  parameters)  ***  PRINT  COMMAND  *** 


This  command  prints  out  the  nodal  parameters  of  mode 
nunber,  frequency,  damping  (zeta),  and  the  magnitude  and  phase 
along  with  the  real  and  imaginary  parts  of  the  residue. 
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4.11.3  CURVE  FITTING  -  CR 


CR  (no  parameters)  ***  CORELATION  BUTTON  *** 


This  command  calculates  a  set  of  residues  for  the  starting 
values  for  a  measurement.  The  range  of  measurement  locations 
on  the  disc  is  input  interactively  so  that,  after  each 
calculation  is  accepted,  the  next  measurement  in  the  range  will 
be  processed . 


4.11.4  RECONSTRUCTION  -  CV 


CV  (no  parameters)  ***  CONVOLUTION  BUTTON  *#* 


This  command  takes  the  results  of  the  residue  calculation 
and  forms  thr>  mathematical  frequency  response  function  for 
display  verification.  It  is  usually  called  right  after  the  CR 
command . 


4.11.5  RESIDUE  CONSTRUCTION  -  SP 

SP  N1  ***  POWER  SPECTRUM  *** 


If  Ni  is  less  than  or  equal  to  0,  a  set  of  starting  values 
can  be  entered. 


If  Ni  is  greater  than  0,  the  residue  calculation  begins  as 
in  the  CR  command  but  no  data  is  read  from  the  disc.  The  data 
is  assumed  to  be  in  block  0. 
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4.11.6  DISPLAY  -  D 

D  N1  N2  ***  DISPLAY  BUTTON  *** 


Thic  connand  is  the  sane  as  that  found  under  automatic 
option . 


4 . 12  CIRCLE  FIT  MONITOR 


The  Circle  Fit  Monitor  allows  you  to  interactively  change 
the  circle  fit  or  the  coefficient  (the  nonitor  character  "  D  " 
is  printed ) . 


The  values  of  center  channel  and  bandwidth  are  considered 
"permanent"  values.  When  you  first  fit  a  node  using  the 
connand,  these  pernanent  values  are  assigned  to  "tenporary"  or 
"working"  values  fron  which  the  circle  fit  is  calculated.  The 
circle  fit  is  always  calculated  fron  these  "tenporary"  values 
of  center  channel  and  bandwidth. 


The  Circle  Fit  connands  allow  the  "tenporary"  center 
channel  and  bandwidth  to  be  varied  in  order  that  the  circle  fit 
for  a  node  nay  be  inproved.  Whenever  new  circle  fits  are 
calculated,  a  new  nodal  coefficient  is  found.  When  you  judge 
the  fit  or  the  coefficient  to  be  acceptable,  the  coefficient 
nay  be  saved.  In  addition,  the  new  "tenporary"  center  channel 
and  bandwidth  nay  be  saved  as  the  "pernanent"  values  in  the 
table,  so  that  they  will  be  used  as  the  "tenporary"  values  for 
this  node  in  later  neasurenents . 


Additional  Circle  Fit  connands  allow  a  "temporary" 
estinate  of  danping  for  the  current  node  to  be  nade  if  desired, 
this  "tenporary"  estinate  nay  be  stored  into  the  table,  or  the 
table  value  nay  be  recalled  to  becone  the  "tenporary"  value. 
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4.13  CIRCLE  FIT  COMMAND  SUMMARY 


Note:  (  )  denotes  options!  parameters 


4.13.1  N1  TEMPORARY  BANDWIDTH 

Ni  Assign  New  < "temporary "  )  bandwidth 


Assign  the  value  of  Ni  <1<N1<30)  to  the  "tenporary" 
bandwidth  for  the  current  node,  and  recalculate  the  circle  fit 
using  this  new  bandwidth  value.  NI  *  0  uses  the  quadrature 
response  and  proceeds.  Ni<0  accepts  the  current  circle  fit. 

The  bandwidth  refers  to  the  nunber  of  data  points  to  be 
included  in  the  circle  fit.  A  bandwidth  of  "1"  uses  the  center 
channel  plus  and  ninus  one  channel. 


4.13.2  ROTATE  - 


Assign  New  Center  Channel  ***  ROTATE  BUTTON  *** 

Increnent  the  current  "tenporary"  center  channel  value  by 
value  NI  (+  or  -)  and  recalculate  the  circle  fit. 

4.13.3  SUBSTRACT  -  A- 


A-  Recall  Old  Center  Channel  ***  SUBSTRACT  BUTTON  «** 


Assign  the  center  channel  value  fron  the  table  to  the 
"tenporary "  center  channel,  print  the  value,  and  recalculate 
the  circle  fit . 
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4.13.4  CLEAR  -  CL 


CL  Clear  Coefficient  ***  CLEAR  BUTTON  *** 


Sets  the  nodal  coefficients  to  zero  and  proceeds. 


4.13.5  REPLACE  -  /R 


/R  Save  "tenporary"  values  ***  REPLACE  BUTTON  *** 


Save  the  "tenporary"  values  of  center  channel,  bandwidth, 
and  danping  into  the  table,  thereby  naking  then  the  "pernanent" 
values  for  the  current  node. 


4  13.6  MISC.  INFORMATION 


Autonatic  Circle  Fit  (Bit  1) 


If  switch  register  bit  1  is  on  when  the  algorithn  is 
entered,  the  coefficeints  fron  the  nodal  circle  fits  will 
autonat ical 1 y  accepted  with  no  circle  fit  displays  or  user 
interact  ion . 


Suppress  Printout  (Bit  15) 


If  switch  register  bit  15  is  on,  the  printout  of  point 
nunber  and  orientation  will  be  suppressed. 

At  the  conpletion  of  processing  the  range  of  neasurenents 
requested,  the  systen  returns  fron  the  circle  fit  nonitor  (  D  ) 
to  the  Y  9  nonitor  (  *  )  where  one  could  then  ask  for  the 
aninated  displays,  etc. 
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DATA  DISPLAY 


CHAPTER  S 


S.i  OVERVIEW 


The  Data  Display  Section  of  the  Modal  Systen  is  entered  by 
typing  'Y  9'  on  the  systen  TTY.  The  program  will  then  respond 
by  printing  a  on  the  TTY  signifying  that  the  Monitor  is 

now  in  operation. 


This  section  outlines  the  Data  Display  connands  available. 
Once  the  necessary  steps  of  the  Data  Setup  and  Data  Acquisition 
sections  have  been  perforned>  these  cohnands  allow  you  to 
obtain  animated  Mode  shape  displays  for  the  test  structure. 


5.2  CONSTRUCTING  THE  DISPLAY 


Note  that,  as  the  display  is  being  constructed,  data 
blocks  0  and  i  are  being  used  to  store  various  'working'  arrays 
of  display  points.  As  long  as  the  contents  of  these  blocks 
remain  intact,  the  program  will  display  the  animated  node  shape 
whenever  the  monitor  is  active.  If  the  *♦"  monitor  is 
exited  via  a  command  and  then  later  re-entered  by  calling  'Y 
9',  the  animated  display  will  appear  provided  blocks  0  and  1 
are  intact.  When  blocks  0  and  i  are  filled,  a  flag  is  written. 
When  the  monitor  is  exited  and  then  re-entered  the  systen 

checks  to  see  if  this  flag  is  there.  If  block  0  has  been 
destroyed  or  altered,  the  flag  will  probably  have  been  altered 
also  -  if  this  is  the  case,  the  system  will  not  display  on  the 
screen  when  the  monitor  is  active  until  another  command  is 
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given  which  constructs  a  display.  Of  course,  it 
alter  the  contents  of  blocks  0  and  1  without  alt 
-  in  this  case,  the  display  that  you  see  when  th 
is  re-entered  will  be  erroneous  and  systeM  error 


is  possible  to 
ering  the  flag 
e  Monitor 

s  May  occur  . 


5.3  AXIS  ORIENTATION 

The  global  coordinate  systeM  for  display  purposes  is  assuned  to 
be > 

Y 


The  systew  resolves  coordinates  and  deforr»ations  in  the 
three  global  directions  shown  above  into  the  display 
two-dinensional  systeM. 


Y 

+ 

♦ 

+ 

+ 

•f 

+ 


5.4  SCALING  CONSIDERATIONS 


The  working  arrays  of  points  stored  in  block  0  and  1  are 
defined  relative  to  the  display  X-Y  coordinate  system. 


Ultimately,  all  structure  coordinates  and  notion  are 
broken  down  into  coordinates  and  notion  within  this  X-Y  system. 


The  display  calculation  will  automatically  scale 
the  5400  display  unit,  with  the  disi-  a*  switch  in  the 
Mode.  In  this  position  only  the  left  portion  <8  x  8) 
total  display  (10  x  8)  is  utilized. 


to  80%  of 
Complex 
of  the 


5.5  When  to  use  the  Data  Display  Commands 


Although  some  care  has  been  taken  to  make  the  Data  Display 
Commands  usable  at  any  time,  it  is  recommended  that  these 
commands  be  used  only  after  performing  the  Data  Setup  for  the 
structure  acquiring  nodal  coefficients  through  the  Data 
Acquisition  process.  Using  the  Data  Display  commands  at  times 
when  valid  data  does  not  exist  will  produce  neaningless  results 
or  possible  system  errors. 


5.6  Initialization  of  Display  Parameters 


Whenever  the  monitor  is  entered  by  typing  'Y  9', 
display  parameters  controlling  the  following  functions  are 
initialized  to 
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c  n 


Def orna 
Display 
Display 
Horizon 
Ver  tica 
View  Po 
"Still" 


tion  Amplitude 

Expansion 

(80%  of  maximum) 

Rotation 

(no  rotation) 

tal  Position 

(to  center  of  display) 

1  Position 

(to  center  of  display) 

sition 

(to  (1,1,1)  ) 

Function 

(display  undeformed  shape) 
plus  animation) 

The  various  Data  Display  commands  are  capable  of  changing 
all  of  the  above  parameters  for  the  purpose  of  modifying  the 
display.  The  system  "remembers"  the  values  of  parameters 
controlling  the  display  functions  even  though  the  modes  or 
omponents  being  displayed  may  change.  These  parameters  may  be 
reset"  to  default  values  either  by  exiting  and  re-entering  the 
monitor  (which  resets  all  except  animation  speed)  or  by 
entering  the  appropriate  Data  Display  command  with  no 
parameters  (this  resets  only  the  parameter  for  that  command). 

In  this  matter,  the  position  (for  example)  of  the  animated 
display  display  will  never  be  changed  once  it  has  been  set 
unless  a  specific  command  is  given  to  restore  the  default 
display  position . 


S.7  Command  Summary 


Note<  (  )  denotes  optional  parameters 


5.7.1  PRINT  -  U 


U  Ni  (N2)  (N3)  ( N4) 


***  PRINT  BUTTON  *** 


Ni  *  0  The  test  set-up  is  printed. 

Nl  ®  i  The  component  data  from  N2  to  N3  is  printed 
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Ni  *  2  The  geonetry  data  fron  point  N2  to  N3 
is  printed. 

Ni  *  3  The  connectivity  file  fron  N2  to  N3  is  printed. 

Ni  ■  A  Node  frequencies  and  damping  is  printed. 

Ni  ■  5  The  nodal  coefficients  fron  node  Ni  fron  point 
N3  to  N4  is  printed.  Note  N2  cannot  be 
defaulted  if  Ni  *  5. 


If  Ni  *  2,  3,  4,  or  5  and  switch  i4  is  pressed  the  output 
will  be  aborted. 


5.7.2  STORE  X< 

X>  (Ni )  *#*  STORE  BUTTON  *** 


This  connand  will  store  the  set-up  and  nodal  coefficient 
which  then  can  be  loaded  later.  Ni  specifies  the  record  nunber 
where  the  infornation  is  written.  The  next  available  record 
will  be  reported.  (0  <  Ni  <  800) 


5.7.3  LOAD  X< 

X<  (Ni)  ***  LOAD  BUTTON  *t* 


This  connand  will  read  the  store  connand.  Ni  specifies 
the  record  nunber. 
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5.7.4  CONVOLVE  -  CV 

CV  Ni  ***  CONVOLUTION  BUTTON  *#* 


This  cormand  controls  the  display  rate  of  the  display  The 
larger  the  value  of  Ni  the  slower  the  display.  Typical  values 
are  in  the  range  of  i  to  10.  For  displays  with  a  very  few 
nunber  of  points  little  control  of  the  display  rate  will  be 
possible . 


5.7.5  DIVIDE  -  :  <  or  EX> 


•  (or  EX)  NI 


***  DIVIDE  BUTTON  *** 


This  connand  will  expand  the  view  by  the  percentage  Ni . 


5.7.6  TRANSFER  FUNCTION  -  CH  (or  AM) 

CH  (or  AM)  Ni  ***  TRANSFER  FUNCTION  BUTTON  *** 

This  connand  will  expand  the  anplitude  of  vibration  by  the 
percentage  Ni . 
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5.7.7  SUBSTRUCTION  A-  (  or  R  ) 


A-  (or  R)  Ni 


***  SUBTRACTION  BUTTON  *** 


This  command 
degrees.  Default 


will  rotate  the  view  by  an  angle  equal 
of  Ni  is  approximately  8i  degrees. 


to  Ni 


S.7.8  DIFFERENTATION  -  X  (or  V  ) 

X  (or  V)  (Ni)  (N)  (N3)  (N4>  ***  DIFFERENTIATE  BUTTON*** 


This  command  changes  the  viewing  position  where  Ni,  N2, 
and  N3  are  the  X,  Y,  Z  coordinates  of  the  viewing  position  with 
respect  to  the  global  coordinate  system.  If  N4  is  input,  only 
the  transf ormation  matrix  is  recalculated .  A  new  display  will 
not  be  calculated.  (Default  Ni  *  N2  »  N3  =■  i) 


5.7.9  POWER  SPECTRUM  -  SP 

SP  Ni  ***  POWER  SPECTRUM  BUTTON  *** 


This  rescales  the  initial  display  upon  entering  a  new  node 
so  that  the  display  fills  the  CRT  screen.  A  typical  value  for 
Ni  is  3400. 
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5.7.10  DISPLAY  -  D 


D  <Ni>  (N2)  <N3 )  (N4 )  (N5>  <N6)  ***  DISPLAY  BUTTON  *** 


This  connand  is  used  for  displaying  the  node  shape  data. 

Ni  =  0  or  positive,  node  Ni  will  be  displayed,  where  N1  =  0  is 
the  undeforned  node  shape.  All  conponents  will  be  displayed  as 
long  as  N2  is  defaulted.  If  Ni  is  positive,  node  Ni  will  be 
displayed  for  N2  nunber  of  conponents  with  conponents  N3,  N4, 
NS,  and  N6  being  displayed.  A  display  connand  with  all 
paraneters  defaulted,  stops  the  display  or  renoves  the 
undeforned  geonetry.  It  works  in  a  cyclic  fashon,  with  the 
first  entry  stopping  anination,  second  entry  renoving 
undeforned  geonetry  with  anination,  third  stopping  anination 
and  the  fourth  entry  replacing  undeforned  geonetry,  which  was 
the  initial  condition.  If  Ni<0,  the  node  will  be  conpletely 
recalculated  even  if  the  requested  node  is  currently  being 
displayed . 


5.7.11  ROTATE  (or  M> 


M  NI  N2  <  or  rotate  key)  ***  ROTATE  BUTTON  *** 


The  nove  connand  will  nove  the  display  so  that  the  point 
Ni  is  centered  in  the  display  screen  If  N2  is  given  then  the 
display  will  shift  NI  percent  to  the  right  and  N2  percent  up. 
Negative  is  left  and  down. 


5.7.12  INTERROGATE  -  ? 


?  (Ni)  ***  INTEROCATE  BUTTON  *** 
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This  connand  is  used  to  intensify  a  point  being  currently 
displayed.  Ni  is  the  point  nunber  to  be  displayed.  If  Ni*0, 
(default)  the  intensify  function  is  turned  off. 


5.7.13  SUBROUTINE  -  < 

<  ***  SUB-RETURN  BUTTON  *** 


This  connand  returns  control  to  the  Fourier  Monitor. 
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I  DATA  PRESENTATION 
I 

+ - 


- + 

I  I 

I  CHAPTER  6  I 

(  I 

■+ - + 


6.1  OVERVIEW 


This  section  of  the  Modal  System  is  intended  to  facilitate 
the  process  of  (taking  a  formal  report  or  graphic  record  of 
nodal  data  either  in  plotted  or  animated  for*.  Most  features 
are  designed  to  work  with  an  HP  -  7210  plotter,  HP  -  9872 
plotter  or  a  Tektronix  4012  terminal  interchangeably .  Software 
has  been  implemented  which  can  locate  the  proper  I/O  slot  so 
that  a  particular  conf iguration  is  unnecessary.  In  the 
plotting  mode,  any  deformed  or  undeformed  position  can  be 
presented  (with  the  undeformed  shape,  the  data  points  can  be 
annotated  and  the  lines  can  be  dotted).  Labeling  is  available 
at  any  time.  Of  particular  interest  to  videotape  or  movie 
presentations  is  the  capability  of  displaying  alphanumeric 
titles  to  the  HP  5460  Display  CRT. 


6.2  DATA  PRESENTATION  COMMANDS  -  USE 


Data  Presentation  Commands  can  be  executed  at  any  time 
although,  if  sufficient  data  is  not  available,  an  error  message 
will  result.  In  general,  if  a  request  has  been  made  to  plot  a 
Mode  Shape  or  annotate  a  plotted  mode  shape,  an  animated 
display  must  be  available.  Displaying  titles  on  the  HP  5460 
Display  unit  can  be  done  at  any  time. 


6.3  DATA  PLOTTING  -  COMMAND  SUMMARY 


i 

NOTE i  (  )  denotes  optional  parameter 
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6.3.1  ANALOG  OUT  -  B 

B  (Nl)  (N2)  ***  ANALOG  OUT  BUTTON  *** 


This  command  is  used  to  plot  the  node  shape  currently 
being  displayed.  For  N2  *  0  (default),  the  undeformed  shape  is 
plotted.  For  N2  *  i  -  20  the  deformation  position  (1  -  20)  is 
plotted.  If  Ni  «  iO  plot  will  be  to  the  HP  7210  If  Ni  *  6 
plot  will  be  to  the  HP  2648  terminal.  If  Ni  ■  37  (default), 
plot  will  be  to  the  HP  9872  or  the  7245  digital  plotter.  The 
undeformed  shape  is  normally  in  dotted  format.  If  solid  lines 
are  required,  switch  12  on  will  give  solid  lines.  The  points 
can  be  labeled  if  a  point  command  has  been  issued  prior  to  the 
solid  line  undeformed  shape  plot.  When  using  the  2648  Terminal 
or  the  Tektronic  4012,  switc*'  15  on  will  abort  the  auto  erase 
between  plots. 


If  N2  is  negative,  a  plot  of  10  positions  of  the  deformed 
shape  will  be  generated  to  device  Ni . 


6.3.2  LABEL  -  L 

L  (Nl)  (N2)  (N3)  (N4)  ***  LABEL  BUTTON  *** 


This  command  is  used  to  label  the  plot.  The  label  size 
and  position  is  controlled  as  follows: 


Ni  *  device 

«  10  for  HP  7210 
-  37  for  HP  9872 

N2  ■  (default  *  50)  ■  X  starting  position 
N3  *  (default  *  700)  ■  Y  starting  position 
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setup  will  then  be  restored  to  the  disc. 
<N4  default  value  *  none 


Upon  issuing  the  Y  88  Ni  <N2>  <N3>  (N4)  command  the 
program  will  respond  with  a  prompt  character  "  D  "  on  the 
terminal.  The  user  must  then  enter  the  point  number  and 
transducer  orientation  as  such-. 


N  (IX)  (IY)  (.12) ,  where  > 


N  =  Point  number  associated  with  current 
measurement . 


IX  s  Transducer  orientation  associated  with  data 
in  block  i  . 


IY  =  Transducer  orientation  associated  with  data 
in  block  2. 


IZ  *  Transducer  orientation  associated  with  data 
in  block  3. 


Transducer  orientations  are  expressed  as  integers  of  -3, 
-2,  -i,  i,  2,  or  3  corresponding  to  local  coordinate  directions 
-2,  -y ,  -x,  x,  y,  z  respectively.  The  correct  orientation 
entry  is  that  which  describes  the  local  direction  in  which  the 
transducer  is  pointing. 


The  direction  of  the  transducer  can  be  imagined  by  drawing 
a  vector  from  the  base  of  the  transducer  through  the  top  of  it. 
As  an  example,  if  the  transducer  associated  with  the  data  in 
block  i  is  pointing  in  the  positive  local  Y  direction  then  IX  « 

2. 


If  successive  measurements  have  the  same  transducer 
orientation  then  switch  register  bit  i  may  be  turned  on  to  have 
automatic  incrementing  of  the  point  number .  If  switch  register 
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N4  •>  (default  *  200)  ■  width  and  height  of 
characters  (HP  7210) 

N4  *  (default  ■  i>  ■  Pen  Nunber  (HP  9872) 


After  the  connand  is  entered,  the  label  is  entered  on  the 
terminal.  Further  lines  May  be  entered  below  the  first  line 
after  the  first  line  has  been  output  to  the  device.  This  node 
is  exited  by  the  Terninate  Button  (  /  )  . 


6.3.3  POINT  -  /. 

/.  (Ni)  (N2>  (N3)  (N4)  (NS)  ***  POINT  BUTTON  *** 


This  connand  is  used  to  enable  the  plotting  of  point 
nunbers  on  the  undeforned,  solid  line  plot  (switch  12  on).  Nl 
is  the  X  offset,  N2  is  the  Y  offset,  and  N3  is  the  character 
size.  Default  values  for  all  three  paraneters  are  100.  This 
feature  has  been  inplenented  only  on  the  HP  7210  plotter  and 
the  HP  9872  plotter.  Switch  13  will  abort  only  the  labeling 
If  N4  and  NS  are  entered,  only  those  point  nunbers  between  N4 
and  NS  will  be  printed. 


6.3.4  LIST  -  /L 

/L  (Nl)  (N2 )  (N3)  *t*  LIST  BUTTON  *#» 


This  progran  executes  a  call  to  subroutine  siniliar  to 
User  Progrsn  7074  (Reference  Chapter  9)  which  displays  ASCII 
text  to  the  HP  S460  Display  Unit  for  use  as  titles  in 
video-taping  or  no vie-naking . 
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Ni  *  0  Title  will  be  entered  Manually 


Ni  >  0  Automatic  display  of  the  frequency 
for  node  nunber  Nl 

Ni  <  0  Disc  record  (-N1)  where  previously 

constructed  titles  have  been  stored. 

N2  «  Character  size  <N2  x  N2) 

a  value  of  1000  yeilds  a  character  size 
of  i  cn  by  i  cn . 

N3  *  Y  position  of  starting  line  of  text 
(-32D00  to  32000) . 


The  X  position  of  each  line  of  text  is  automatically 
centered . 

Default  values:  Ni  *  0 

N2  «  500 
N3  -  5000 


This  feature  is  aborted  when  any  character  is  entered. 


USER  PROGRAM  Y  88 


CHAPTER  7 


I 

+ 


I 

♦ 


This  program  is  called  within  the  data  acquisition 
keyboard  program  (using  the  5451  C  software  coreload  1)  in 
order  to  put  the  proper  test  ZD  information  into  the  data  block 
header  area  when  the  data  is  stored  to  the  disc. 


The  following  command  formats  nay  be  used- 


Y  88  5  Ni 

Reads  test  setup  from  record  Ni  on  the  disc  <N1 
default  value  is  *  i9). 


Y  88  6  Ni 

Writes  current  core  resident  setup  to  the  disc 
record  Ni  (  default  value  ■  19) . 

Y  88  Ni  (N2 )  (N3)  (N4) 

Ni  *  i,  2  or  3 

Stores  data  block  1  through  Ni  to  the  disc 

N2  *  Point  number  increment  value 
(N2  default  value  ■  1) 


N3  -  Zoom  range  parameter  (N3  -  0  -5) 

(N3  default  value  ■  0  ie,  baseband) 


N4  ■  Disc  data  record  number  where  setup  is 
stored.  Setup  will  be  read  before 
storing  current  data  blocks,  an  updated 
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bit  0  is  off  then  point  number  is  increased  by  H2.  If  bit  0  is 
on  then  point  number  is  decreased  by  N2 . 


If  the  parameter  N2  is  less  than  or  equal  to  zero  the 
point  number  is  not  incremented  and  the  data  is  stored  with  the 
current  point  number  and  transducer  orientation. 


The  third  parameter,  N3,  specifies  the  two  character  zoom 
range  parameter  that  will  be  stored  in  the  header .  N3  is  an 
integer  from  0  to  5  which  specifies  a  parameter  of  ZO  to  ZS 
respecti vely .  The  zoom  range  parameter  provides  an  easy  key  on 
which  other  programs  can  search  when  looking  for  a  specific 
frequency  range. 


The  fourth  parameter,  N4,  specifies  the  disc  data  record 
where  the  test  setup  has  been  stored  using  Y  90 .  If  N4  is 
specified  then  the  test  setup  is  read  from  the  disc  data  record 
N4  (file  7)  before  the  current  data  is  stored  to  the  disc. 

After  the  data  has  been  stored,  the  test  setup  is  restored  to 
disc  data  record  N4.  In  this  way  the  test  setup  always 
contains  the  last  point  number  and  transducer  orientation  used. 
Before  the  setup  is  read,  the  mass  store  file  i  pointer  is  kept 
so  that  after  reading  or  writing  the  test  setup,  the  data  file 
pointer  is  returned  to  its  original  location 


I 

I  TYPICAL  EXAMPLE  “CANNED"  DATA 
I 

+ - 


I  I 

I  CHAPTER  8  I 

I  I 

+ - + 


This  chapter  lists  in  order,  a  typical  listing  of  the 
terminal  printout  during  the  operation  of  the  nodal  software. 
Indented  wordage  within  brackets  are  connents  not  printed  by 
the  terninal. 


MAX  BLOCKS  */SIZE/SPACE 
2  2048  4992 


Y  90 


UCMIE  TEST  SET-UP  PROGRAM  .  Y  90 


8 

K 

ENTER  TEST  ID.  . 

A/P 

ENTER  DATE  . 

040980 

ENTER  DISC  STORAGE  START  RECORD  . 
i 

8 

K  i 

ENTER  EXCITER  POSITION  AND  DIRECTION  .  I  INTEGERS  1 
i,3 

i  Z 

ENTER  LOAD  CELL  MODEL  ♦  AND  SERIAL  *  . 
iOi,il 

ENTER  NUMBER  OF  RESPONSE  DIRECTIONS  . 
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ENTER  3  RESPONSE  TRANSDUCER'S 
MODEL  NUMBER  ,  SERIAL  NUMBER  ,  CALIBRATION  NUMBER  . 
102,1,1 

103.2.1 

104.3.1 


0 

K  2 

ENTER  DATA  TYPE  CODE  <2  CHARACTER)  = 

AC 

ENTER  ZERO  FOR  IMPACT  OR  ONE  FOR  RANDOM  . 
1 

INPUT  NUMBER  OF  ZOOM  RANGES  . 

0 

0 

X>2 

0 

< 

MS38  10 
MS18  1 

MAX  BLOCKS  0/SIZE/SPACE 
4/  2048/  8512 

Y  9 


UNIVERSITY  OF  CINCINNATI/LEUVEN  MODAL  ANALYSIS  SYSTEM 
VERSION:  NOVEMBER  1979 

* 

X<708 

(Her*  previous  data,  consisting  of  components, 
coordinates,  display  sequence,  etc.  are  loaded) 

TEST  ID  IS  A/P 

* 

U 

TEST  ID  IS  A/P 
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DATE  IS 


04  0?  80 


NUMBER  OF  POINTS  IS  39 

NUMBER  OF  MODES  IS  10 

* 

A+ 

ENTER  OPTION  TO  BE  USED  FOR  FREQUENCIES  AND  DAMPING 
1)  MANUAL 

5»  \  piiDcnp 

3)  LEAST  SQUARES  ESTIMATE 

4)  CURRENTLY  SELECTED  VALUES 

5)  RETURN  TO  MONITOR 

3 

INPUT  DISC  DATA  RECORD  OF  TYPICAL  TEST  DATA « 
i 

L  TER  OPTION  FOR  CHOICE  OF  STARTING  CHANNEL: 

1)  MANUAL 

2)  CURSOR 


2 

SET  CURSOR  ON  STARTING  CHANNEL: 

(USE  SWITCH  9  ONCE  CURSOR  IS  ON  DESIRED 
STARTING  CHANNEL) 

ENTER  NUMBER  OF  POINTS  TO  BE  USED  IN  THE  PARAMETER  ESTIMATION 
<64, 128,256) 


128 

STARTING  FREQUENCY  .18000E+01 

CHANNEL  180  TO  308 

ENTER  0  TO  ACCEPT: 

0 

ENTER  RANGE  OF  DISC  RECORDS  FOR  CURRENT  TEST . <N1,N2,N3) 
N1  ■  STARTING  RECORD 
N2  *  ENDING  RECORD 

N3  -  NUMBER  OF  SAMPLES/MEASUREMENT  (OPTIONAL) 


1  46 


DOF 

2 

ERROR 

= 

. 188360E  +  0  0 

DOF 

3 

ERROR 

as 

64S7S0E-01 

DOF 

4 

ERROR 

= 

. 539607E-D1 

DOF 

S 

ERROR 

X 

.  312228E-01 

DOF 

6 

ERROR 

= 

. 1530iiE-0i 

DOF 

7 

ERROR 

s 

.  371186E-02 

DOF 

8 

ERROR 

= 

. 1S9108E-02 

DOF 

9 

ERROR 

= 

973241E-03 

DOF 

10 

ERROR 

«8 

. 605324E-03 

DOF 

11 

ERROR 

= 

.  232289E-03 

DOF 

12 

ERROR 

SB 

. 1671 00E-03 

DOF 

13 

ERROR 

= 

.  817006E-04 

DOF 

14 

ERROR 

as 

. 392982E-04 

DOF 

15 

ERROR 

X 

399587E-04 

DOF 

16 

ERROR 

X 

. 299855E-04 

DOF 

17 

ERROR 

X 

.  262208E-04 

DOF 

18 

ERROR 

= 

. 191537E-04 

DUF 

19 

ERROR 

5= 

.  118225E-04 

DOF 

20 

ERROR 

X 

. 63405SE-0S 

DOF 

21 

ERROR 

= 

.  402889E-05 

DOF 

22 

ERROR 

X 

. 445822E-05 

DOF 

23 

ERROR 

= 

.  508565E-05 

DOF 

24 

ERROR 

X 

. 4061 91 E- 05 

DOF 

25 

ERROR 

* 

.  422703E-05 

DOF 

26 

ERROR 

X 

. 198142E-05 

DOF 

27 

ERROR 

= 

241073E-05 

DOF 

28 

ERROR 

X 

. 255934E-05 

DOF 

29 

ERROR 

= 

.  244375E-05 

DOF 

30 

ERROR 

== 

213828E-D5 

DOF 

31 

ERROR 

as 

.  203096E-05 

DOF 

#* 

32 

ERROR 

X 

.  190712E-05 

SP2< 

) 

g*************************** 

g************************* 

g  *  *  *  *  *  *  #  *  *  *  *  *  nc  *  *  *  *  *  *  *  *#  *  *  * 
g************************ 

e * ###* * # * ****** ******** * 
e******************** 
e ****** * * **** * ***** * 

g****************** 
g***************** 
g*************** 
e  *  **  ****  »c*  ****** 

g**# *********** 

g************ 

g************ 

g************ 

g************ 

g*********** 

g********** 

g********* 

g********* 

g** ******** 

g********** 

g********* 

g********** 

g******** 

g********* 

g** ******* 

g********* 

g********* 

g******** 

g******** 


DOF  20  ERROR  -  63405SE-05  g*#*****##*  g 


MODE 

FREQUENCY 

DAMPING  RATIO 

2ETA  (X) 

1 

1 .800 

.055 

3.065450 2 

2 

1.916 

.265 

13.7217903 

3 

1  918 

.  017 

.8817592 

4 

2  107 

.  040 

1.8927138 

S 

2.181 

.  074 

3.4007921 

6 

2.491 

.  078 

3.1388712 

7 

2  597 

.  095 

3.6707439 

8 

2.676 

.  034 

1.2614412 

9 

2.896 

.077 

2.6539407 

ID 

3.080 

.206 

6.6735630 

11 

3.080 

.790 

24.8577423 

** 

D 
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** 

CL 

** 

/Dll 

** 

/DIO 

** 

/D2 

*« 

W 

MODE 

FREQUENCY 

DAMPING  RATIO 

ZETA  (X) 

1 

1.800 

.  055 

3.0654502 

2 

1.918 

.017 

.8817592 

3 

2.107 

.  040 

1.8927138 

4 

2.181 

.074 

3.4007921 

S 

2.491 

.  078 

3. 1388712 

6 

2.597 

.  095 

3.6707439 

7 

2.676 

.  034 

1.2614412 

8 

2.896 

.077 

2.6539407 

** 

< 


ENTER  OPTION  TO  BE  USED  TO  DETERMINE  MODAL  COEFFICIENTS  * 

i)  MAGNITUDE 
2>  IMAGINARY  PART 

3)  REAL  PART 

4)  KENNEDY-PANCU  CIRCLE  FIT 

5)  LEAST  SQUARES  FREQUENCY  DOMAIN 

6)  RETURN  TO  MONITOR 


5 

ENTER  0  TO  CLEAR  CURRENT  MODAL  COEFFICIENTS 
0 


ENTER  OPTION  FOR  RESIDUAL  TERMS  TO  BE  INCLUDED: 

1)  NO  RESIDUALS 

2)  RESIDUAL  MASS  ONLY 

3)  RESIDUAL  FLEXIBILITY  ONLY 

4)  RESIDUAL  MASS  AND  FLEXIBILITY 
4 


INTERACTIVE(O)  OR  AUTOMATIC i> 
i 


SWITCH  IS 
SWITCH  14 
SWITCH  13 
SWITCH  11 
SWITCH  10 


ABORT  POINT  PRINT 
ABORT  PARAMETER  ESTIMATION 
ABORT  AUTOMATIC  CALIBRATION 
ABORT  NIXIE  TUBE  DISPLAY 
SUPRESS  SCALING  QUESTION 


SWITCH  2  PRINT  RESIDUE  RESULTS 
SWITCH  0  ABORT  DATA  RECONSTRUCTION 

ENTER  RANGE  OF  RECORDS  FOR  CURRENT  TEST- 
1  46 
Z  1 

LEAST  SQUARED  ERROR  ■  .  10024E-01 

-1 

Z  2 

LEAST  SQUARED  ERROR  =  .  10405E-01 

-i 

(TURN  ON  SWITCH  0) 

Z  3 

Z  4 

(THIS  CONTINUES  FOR  ALL  MEAS . ) 


* 

D  i 


1 .8000  HERTZ 

* 


At  thie  point  one  could  ask  for  various  printouts,  display 
other  nodes  or  plot  the  results.  Typically  one  would  also 
store  this  analysis  to  the  disc  in  a  typical  location  like 
record  720. 
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I  USER  PROGRAM  7074 
I 


+ - + 

I  I 

I  CHAPTER  9  I 

I  I 

+ - + 


Y  7074  -  ALPHANUMERIC  DISPLAY  ON  CRT 

This  program  allows  the  user  to  generate  ASCII  characters 
in  a  data  block  for  display  purposes.  It  was  written  with  the 
intention  of  generating  titles,  sub-titles  and  labels  for  video 
tapes  of  node  shapes 

There  are  60  characters  available,  plus  the  space.  The 
characters  are: 


A  through  Z 
0  through  9 


‘  "  •  *  Z  '  <  >  *  -  < 


T  6  :  <  > 


/  ? 


The  coftftand  call  is.  Y  7074  -  LY  ISIZE 

where.  LY  is  the  location 

of  the  first  character  Y-axis 

ISIZE  is  the  character  size 


The  screen  is  divided  as  shown  here. 
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+32000 


Y-axis  0 


-32000 


♦ - + 

+ - + 


+ 


+ 


■f - + 

♦ - + 


♦ 


+ 


+ 


-4- 


+ - + 

+ - +  ■ 


+ - + 

+ - +  • 


+***«* 

+****« 

+***»* 

+**#** 

+**»** 

+#**** 

+***#* 

****** 

****** 

****** 


-32000  0  +32000 

X-axis 


Note:  Characters  must  be  viewed  in  the  COMPLEX 

plane.  Therefore,  only  an  eight  division  portion  of 
the  display  is  used. 


The  parameter  ISIZE  defaults  to  400,  LY  defaults  to  0. 
ISIZE  can  range  from  32000,  but  becones  unreasonable  past 

2000  . 


Following  the  command  call,  the  systen  responds  on  the 
terninal  with  the  nunber  of  characters  available  per  line 
without  overflow  to  the  next  line.  This  pernits  the  user  to 
calculate  positioning  of  the  characters  before  entry.  The 
systen  then  waits  for  an  input  fron  the  terninal  of  up  to  70 
characters  and  spaces.  The  program  will  “line  feed" 
autonatically  when  the  nunber  of  characters  exceeds  the 
available  per  line.  A  "line  feed"  nay  be  forced  by  placing  a 
blackslash  at  the  location  desired  in  the  character  string. 

The  blackslash  is  not  counted  as  a  character.  If  the  nunber  of 
characters  is  greater  than  the  block  can  hold,  the  systen  will 
respond  with  a  CL  WHAT? 


After  calculation  of  the  character  string,  the  systen  prints  on 
the  terninal  a  message  indicating  the  block,  and  starting  and 
ending  channels  of  the  string. 
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EXAMPLE: 


Y  7074  U.C.  MECHANICAL  ENGINEERING  BLOCK  0,  CHANNELS  i  THROUGH 
407 


This  information  can  be  used  to  give  a  display  at  maximum 
display  size  as  in  the  following  keyboard  program. 

L  0 

Y  3220  0  i  569  12 
J  0 


For  an  acceptable  display  for  uideo  taping,  the  storage 
scope  must  be  used  in  the  POINT  DISPLAY  mode. 
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10 .  i  INTERCHANGE  -  X 

X  Ni  ***  INTERCHANGE  BUTTON  *** 


Ni  =  default  -  Hodal  Assurance  Criteria 
Ni  >  1  Mode  Scaling 
Ni  -  2  Mode  Substraction 

This  section  is  interactive  and  relatively  straight 
forward  in  nature.  Renertber  a  space  terninates  further  entry. 

10 . .2  LOAD  -  X< 

X<  NI  ***  LOAD  BUTTON  *** 


NI  *  record  where  data  is  stored 

10 . .3  STORE  X> 

X>  Ni  ***  STORE  BUTTON  *** 


Ni  *  record  where  data  is  to  be  stored. 
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CHAPTER  il 


+- 

I 

t 

I 

+- 


FLOW  DIAGRAMS 


FLOW  CHART  -  DATA  ACQUISITION 


********** 
*  START  * 
********** 

+ 

+ 


+ 

*********************** 

*  LOAD  Y90  OVERLAY  * 

*********************** 

*  Y  93  * 

*********************** 

*  CL  IRECi  IREC2  * 

*********************** 

*  K  0  * 

*********************** 

*  K  1  * 

*********************** 

*  K  2  * 

*********************** 

*  X>  IREC3  * 

*********************** 

+ 

♦ 

+ 

♦  - 
+ 

+ 
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yyyyyyyyyyyyyyyyyyyyyyyy 


y  * 

*  LOAD  Y88  PROGRAM  * 

*  * 

*  (coreload  1)  * 

*  * 

***)M*JM**************** 
*  * 

*  ENTER  KEYBOARD  * 

y  y 

*  PROGRAM  TO  CALCULATE  * 

y  y 

*  FREQUENCY  RESPONSE  * 

y  y 

*  MEASUREMENTS  IN  * 

*  * 

«  BLOCKS  1,2,3  * 

*  * 

yyyyyyyyyyyyyyyyyyyyyyyy 

*  * 

*  Y  88  Ni  N2  N3  IREC3  * 

*  * 

yyyyyyyyyyyyyyyyyyyyyyyy 

y  y 

y  TAKE  MEASUREMENTS  y 

y  y 

y  FOR  EACH  POINT  OF  y 

y  y 

y  INTEREST  y 

y  y 


yyyyyyyyyyyyyyyyyyyyyyyy 
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FLOW  CHART  -  MODE  SHAPE  ANALYSIS 


************* 
*  START  * 
************* 
+ 


+ 

+ 

+ 

********************************** 

*  LOAD  LARGEST  OVERLAY  (10)  * 

********************************** 

*  Y  9  * 

********************************** 

*  K  0  GENERAL  SETUP  * 

********************************** 

*  K  1  COMPONENT  SETUP  * 

********************************** 

*  K  2  GEOMETRY  SETUP  * 

********************************** 

*  K  3  CONNECTIVITY  SETUP  * 

********************************** 

+ 

+ 

+ 

+ 

+  +  +  + 

+ 

+ 

+ 

*********************************** 


*  * 

*  A+  PARAMETER  ESTIMATION  * 

*  FREQUENCY  * 

*  DAMPING  * 

*  MODAL  COEFFICIENTS  * 

*  * 


*********************************** 

+ 

+ 

+  *  *  *  * 

+  +  +  +  *  A  * 

+  *  *  *  * 

♦ 

+ 

+ 
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*  *  *  * 

*  A  * 

*  *  *  * 
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******************************* 
*  * 

*  D  Nl  DISPLAY  MODES  * 

*  * 
******************************* 

+ 

+ 

+ 

+ 


*  *  *  * 
*  * 

*  B  * 

*  * 
*  *  *  * 
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*  *  *  « 

*  * 

*  A  * 

*  * 
«  *  *  * 


*********************************** 


* 

X>  Ni  STORE  PRESENT  * 

* 

INFORMATION  TO  * 

* 

DISC  * 

* 

*********************************** 

* 

X<  Nl  READ  PREVIOUSLY  * 

* 

ENTERED  INFORMATION  * 

* 

FROM  DISC  * 

* 


*********************************** 
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*  *  *  * 
*  * 

*  B  * 

*  * 
*  *  *  * 

♦ 

+ 

♦ 

+ 

+ 


*********************************** 


* 

B  N1  N2  PLOT  PRESENTLY  * 

* 

DISPLAYED  MODE  * 

* 

SHAPE  * 

* 

*********************************** 

* 

L  N1  N2  LABEL  CURRENT  * 

* 

PLOT  * 

* 

*********************************** 

* 

/L  N1  N2  WRITE  ASCII  * 

* 

TEXT  TO  * 

* 

CRT  SCREEN  * 

[  * 


*********************************** 
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I 

I  HEADER  INFORMATION 
I 

+ - 


I  I 

I  CHAPTER  12  I 
I  I 

+ - + 


HEADER  INFORMATION  -  MODAL  DATA 


WORD  6  52525B 

ASCII  STORAGE  (SEARCH  KEY) 


WORD 

9 

70 

WORD 

10 

TEST  ID( 1 ) 

WORD 

11 

TEST  ID ( 2) 

WORD 

12 

TEST  IDO) 

WORD 

13 

TEST  ID( 4 ) 

WORD 

14 

TEST  IDO) 

WORD 

IS 

DELIMITER  ( . ) 

WORD 

16 

POINT  NUMBER  (1) 

WORD 

17 

POINT  NUMBER  <2) 

WORD 

18 

DELIMITER  (.) 

WORD 

19 

TRANSDUCER  ORIENTATION 

WORD 

20 

DELIMITER  < . ) 

WORD 

21 

EXCITER  LOCATION  <1> 

WORD 

22 

EXCITER  LOCATION  (2) 

WORD 

23 

DELIMITER  < . ) 

WORD 

24 

EXCITER  ORIENTATION 

WORD 

2S 

DELIMITER  (.) 

WORD 

26 

DATE  <i) 

WORD 

27 

DATE  (2) 

WORD 

28 

DATE  (3) 

WORD 

29 

DELIMITER  < . ) 

WORD 

30 

TIME  (1) 

WORD 

31 

TIME  (2) 

WORD 

32 

TIME  (3) 

WORD 

33 

DELIMITER  < . > 

WORD 

34 

DATA  TYPE  CODE 

WORD 

35 

DELIMITER 

INTEGER  STORAGE 
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WORD  45 
WORD  46 
WORD  47 
WORD  48 
WORD  4? 
WORD  50 
WORD  51 


RESPONSE  POINT  NUMBER 
EXCITATION  POINT  NUMBER 
RESPONSE  TRANSDUCER  MODEL  NUMBER 
RESPONSE  TRANSDUCER  SERIAL  NUMBER 
LOAD  CELL  MODEL  NUMBER 
LOAD  CELL  SERIAL  NUMBER 
DATA  BLOCK  NUMBER 


FLOATING  POINT  STORAGE 


WORD 

WORD 

WORD 

WORD 

WORD 

WORD 


DATA 


75  MINIMUM  FREQUENCY 

76 

77  DELTA  FREQUENCY 

78 

79  DATA  CALIBRATION  VALUE 

80  OR  -  RECORD  NUMBER 


TYPE  CODES  (WORD  34) 


10 

TIME 

11 

CORRELATION 

20 

FREQUENCY 

21 

FREQUENCY  RESPONSE 

(D/F) 

22 

FREQUENCY  RESPONSE 

(V/F) 

23 

FREQUENCY  RESPONSE 

(A/F) 

25 

POWER  SPECTRUM 

29 

COHERENCE 

40 

59 

CURVE  FIT  DATA 

60 

SYNTHESIZED  DATA 

70 

SETUP 

71 

MODAL  SETUP  <Y  90) 

72 

MODAL  COEFFICIENTS 

75 

TEST  SETUP  < Y  88) 
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0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0  030 
0031 
0032 
0033 
0034 
0035 
0  036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 


FTN4.L 

C 

C  VERSION  i-JUN-78  PM  MRH  COMMON:  REV  D 


C 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 


SUBROUTINE  Y 0  090  <  INT , IPAR ) 

DIMENSION  LINE<36> ,LINEi<35> ,IPAR<6) ,IH<1) ,IM<3>  , 

1  RH<3) ,NIH<5) , CRH<  3) , ICMMD (14>,I0ID(2>,IPT(2) , 

2  IZR(iO)  ,IXX<1) ,IYY(i> ,IZZ<1) ,NX<3) ,NY<3) ,NZ<3> , 

3  FN(10> ,FC(10> ,FM(10) ,FD<10> 

COMMON  ICOMM , IT  <  5 ) , ID ( 3) , IX < 3 ) , IS (3 ) , ID1 ,LMN,LSN,MN<3) , 

1  ISN<3) ,IXP<3) ,IXDIR,ICF<5) ,IBW<5) ,IR<5) ,IAVG<5) ,I0VL<5)  , 

2  NAVG ,NZR ,NRS ,KTEST ,KTYPE , IREC , TCAL(3 ) , IZOOM ,FMIN ,DF ,KZ ,KAVG 
EQUIVALENCE  <LINE<2) >LINEi ) 

EXTERNAL  HDR8  ,  DTADO  ,  SIZE 

DATA  ICMMD/2H/R ,2HCV ,2HX  ,2H$  , 2HCL , 2HX< , 2HX > , 2H/ .  , 

1  2H/L , 2H<  ,2HP  ,2HR  ,2HW  ,2HK  / 

DATA  IDUM1 /-!/ , IZR/2HZ0 , 2HZ1 , 2HZ2 , 2HZ3 , 2HZ4 ,2HZ5 , 
12HZ6,2HZ7,2HZS,2HZ9/ 

***##*##*****####***#***!W************************************ 


* 

THIS  VERSION  OF  Y0090  HAS  THE  FOLLOWING  FEATURES  :  * 

* 

1)  CORRECT  HEADER  INFORMATION  * 

2)  CORRECT  TRANSDUCER  INFO.  IN  HEADER  * 

3)  INTERCHANGE  TRANSDUCER  INFO,  FOR  A  POINT  * 

4)  CHANGE  OLD  Y8  FORMAT  TO  CURRENT  Y90  FORMAT  * 

5)  CLEAR  DISK  RECORDS  READY  FOR  Y88  * 

6)  LOAD  OR  STORE  TEST  SET-UP  TO  DISK  * 

7)  SEARCH  DISK  RECORDS  FOR  A  POINT  NUMBER  * 

8)  THREE  TYPES  OF  RUN  LOGS  * 

9)  PUNCH  TEST  SET-UP  TO  PAPER  TAPE  * 

10)  READ  TEST  SET-UP  FROM  PAPER  TAPE  * 

11)  ENTER  TEST  SET-UP  FROM  KEYBOARD  * 

12)  WRITE  CURRENT  TEST  SET-UP  * 

13)  WRITE  HEADER  INFO.  FROM  DISK  RECORD  * 

* 


Jjj  ^  ^  ^  ^  ^  ^  ^  ^  j|^  |||  ^  ^  j||  ^  ^  j|^ 


CALL  SET AD ( HDR8 ,  IH , -8 , 0 ) 

CALL  SETAD<HDR8,RH(i> ,67,0) 

C 

C 

C  IPNTMX  IS  USED  IN  RUN  LOG  2  .  IT  IS  USED  TO  SET 

C  SYSTEM  BLOC'  SIZE  SO  IT  MUST  BE  A  POWER  OF  2. 


0046  C 

0047  C 

0048 

0049 

0050 

0051  C 

0052 

0053 

0054 

0055 

0056 


IRECMX=819 

JRECMX*39 

IPNTMX*512 


CALL  SETAD(DTAD0,IXX, IPNTMX,-!) 
I*IPNTMX*2 

CALL  SETADt DTADO , IYY  ,  I  ,-i ) 
I=IPNTMX*3 

CALL  SETAD< DTADO , IZZ , I  ,-i ) 


PRECEDING  PAGE  BLANK-MOT  FILMED 
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0057  CALL  GETI (SIZE , IBS) 

0058  IBSIZE*IBS 

0059  CALL  IOSU(LU , 0 ) 

0060  URITE( 1,100) 

0061  100  FORMAT(//,“  UCMIE  TEST  SET-UP  PROGRAM  :  Y  90",/) 

0062  IF ( 1DUM1 . NE . -1 >  GOTO  200 

0063  IP AR 1=  1 

0064  IPAR2=  0 

0065  GO  TO  8000 

0066  50  IDUM1=Q 

0067  200  I-ISUR (140Q61B,0,0) 

0068  WRITE ( 1 >210 ) 

0069  210  FORMAT ( / , 1HS  ,/) 

0070  IP AR l=-9999 

0071  IPAR2=-9999 

0072  IP AR3=-9999 

0073  IPAR4=-9999 

0074  DO  230  1=1,36 

0075  230  LINE(I)  =  2H , , 

0076  CALL  TTYIN(LINE) 

0077  242  CALL  TEST ( 1 , 1ST , LOG > 

0078  IF ( 1ST . LT . 0 )  GOTO  242 

0079  CALL  CODE 

0080  READ  (LINE, 320)  IL 

0081  320  FORMAT ( A2) 

0082  CALL  CODE 

0083  READ (LINE1 , * )  IPAR 1 , IPAR2 , IPAR3 , IPAR4 

0084  330  IF(IL.EQ.2H#*>  GOTO  200 

0085  NCMMD  =  14 

0086  DO  338  IMRH=1, NCMMD 

0087  IFdL.EQ.  ICMMDdMRH)  )  GOTO  344 

0088  338  CONTINUE 

0  089  CALL  IOSUI  (LU  ,  0  ) 

0090  WRITE( 1 ,340 ) 

0091  340  FORMAT ( / , "INVALID  COMMAND") 

0092  GO  TO  200 

0093  344  IF ( IMRH ■ GT . 5 )  GOTO  350 

0094  IF(IPAR1 .EQ.-9999)  GOTO  348 

0095  IF (IPAR2 . EQ . -9999 )  IPAR2-IPAR1 

0096  GO  TO  350 

0097  348  IPARi  =  1 

0098  IPAR2  *  IRECMX 

0099  350  IF ( IMRH . LT . 8 . OR . IMRH . GT . 9 )  GOTO  360 

0100  IF (IPAR2 , EQ . -9999 >  GOTO  358 

0101  IF ( IP AR3 . EQ . -9999 >  IPAR3-IPAR2 

0102  GO  TO  360 

0103  358  IPAR 2=1 

0104  IPAR3=IRECMX 

0105  360  GOTOdOOO, 9000, 9500, 2000, 3000, 4000, 4500, 4900, 5000, 

0106  1  9995,6400,6500,7000,8000)  IMRH 

0107  C 

0108  C  ************************************************************ 

0109  C  CORRECT  INFORMATION  STORED  IN  HEADER  AREA  (  /R  ) 

0110  c  ************************************************************ 

0111  c 

0112  1000  CALL  IOSW(LU,0> 
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0113  WRITEd, 1015) 

0114  1015  FORMAT</, "LIST  HEADER  WORDS  ?",/, 

0115  1  "(YES  OR  NO)  i -) 

0116  READ( 1,1017)  IANS 

0117  1017  FORMAT ( Ai ) 

0110  IF ( IANS . EQ . 1HY  )  GOTO  1800 

0119  1025  IF(ISSW(14) .LT.0)  GOTO  200 

0120  WRITEd  ,  1030  ) 

0121  1030  FORMAT (/, "ENTER  HEADER  WORD  NUMBER:") 

0122  READd,*)  IK 

0123  IF ( ISSW (14 ) . LT . 0 )  GOTO  200 

0124  IF ( IK . EQ , 6)  GOTO  1601 

0125  CALL  HDRWD ( IK , I ) 

0126  IF(I.EQ.l)  GOTO  1035 

0127  IF(I.EQ.O)  GOTO  1043 

0128  WR  ITEd  f  1040  )  IK 

0129  1040  FORMAT(/, "ERROR  :  TO  CHANGE  WORD  NUMBER  ",I3,/, 

0130  1  "USE  INTERCHANGE (X  )  OR  CONUOLUTION(CU)  COMMANDS") 

0131  GO  TO  200 

0132  1043  WRITEd, 1044)  IK 

0133  1044  FORMAT (/, 14,"  :  INUALID  WORD  NUMBER") 

0134  GO  TO  1025 

0135  1035  WRITEd,  1041)  IK 

0136  1041  FORMAT(//, "ENTER  NEW  INFORMATION  FOR", 

0137  1  //'WORD  NUMBER  :",IS) 

0138  C 

0139  C  READ  NEW  HEADER  INFORMATION  ************************* 

0140  C 

0141  IF ( IK . EQ . 24 )  GOTO  1200 

0142  IF ( IK . EQ . 34 . OR .IK . EQ . 36 >  GOTO  1250 

0143  IF( IK . EQ . 26 )  GOTO  1300 

0144  IF(IK. GE.45.AND.IK.LT. 75)  GOTO  1400 

0145  IF( IK . GE . 75)  GOTO  1500 

0146  DO  1100  1*1,5 

0147  1100  NIH(I)=2H 

0148  READd, 1101)  (NIH(K  )  ,K*1 ,5) 

0149  1101  FORMAT (5A2 ) 

0150  GO  TO  1601 

0151  1200  READd, 1210)  NIHd) 

0152  1210  FORMAT (A2) 

0153  IF(NIHd)  .EQ.2H-X)  NIHd)»2HX- 

0154  IF(NIH(1) .EQ.2H-Y)  NIH(1)»2HY- 

0155  IF(NIH(1) .EQ.2H-Z)  NIH(i)-2HZ- 

0156  GO  TO  1601 

0157  1250  READd, 1210)  NIH(1> 

0158  GO  TO  1601 

0 1S9  1300  READd, 1301)  NIHd  )  ,NIH(2 )  ,NIH(  3 ) 

0160  1301  FORMAT (3A2) 

0161  GO  TO  1601 

0162  1400  READd,*)  NIHd) 

0163  GO  TO  1601 

0164  1500  I  *  ( IK-73 > /2 

0165  READd,*)  CRHd) 

0166  1601  IF( ISSW( 14) . LT . 0 )  GOTO  200 

0167  XF< IK . EQ . 6)  NIH( 1 > -52525B 

0168  IF ( IK . EQ . 36)  GOTO  1602 
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0169  IF ( IK . EQ . 75 . OR . IK . EQ . 77)  GOTO  1602 

0170  GO  TO  1604 

0171  1602  WRITEd  ,1603) 

0172  1603  FORMATS," 'ENTER  ZOOM  RANGE  TO  BE  SEARCHED  FOR:") 

0173  READ< 1 , 1210 )  K 

0174  1604  DO  1600  I I=IPAR 1 , IPAR2 

0175  CALL  K YBD<  2HMS ,31,11) 

0176  CALL  KYBD(2HMS, 11 > 

0177  IF(IH(6> .EQ. 12345. AND . IK . NE . 6 )  GOTO  1600 

0178  CALL  BCHK<IBS,IH(5) ) 

0179  IF ( IK . EQ . 6 )  GOTO  1700 

0180  IF ( IK . EQ . 36 )  GOTO  1610 

0181  IF(IK.EQ.75,0R .IK.EQ.77)  GOTO  1610 

0182  GO  TO  1620 

0183  1610  IF ( IH< 36 ) , NE . K )  GOTO  1600 

0184  C 

0185  C  STORE  NEW  INFORMATION  IN  HEADER  ********************* 

0186  C 

0187  1620  IFdK.GT.50)  GOTO  1710 

0188  1700  IH(IK)  *  NIH(i) 

0189  IF( (IK .NE. 10) .AND. (IK .NE.26) )  GOTO  1725 

0190  IF(IK.EQ.iO)  NLPS*4 

0191  IF ( IK . EQ , 26 )  NLPS=2 

0192  J=IK 

0193  DO  1705  N=i , NLPS 

0194  L=N+i 

0195  J=J+1 

0196  IH ( J )  =  NIH(L) 

0197  1705  CONTINUE 

0198  GO  TO  1725 

0199  1710  RH ( I )  »  CRH(l) 

0200  1725  IF ( IK . NE . 4S . AND . IK . NE . 46 )  GOTO  1730 

0201  J=16 

0202  DO  1726  N=45,46 

0203  IPT ( 1 ) *IH( N ) 

0204  CALL  ASCPT ( IPT ( 1 ) ) 

0205  IF(N . EQ . 46)  J=21 

0206  IH( J )*IPT ( 1 ) 

0207  IH( J+i )=IPT (2) 

0208  1726  CONTINUE 

0209  C 

0210  C  STORE  DATA  WITH  CORRECTED  HEADER  ******************** 

0211  C 

0212  1730  CALL  KYBD(2HMS ,31 ,-i  ,  i  ) 

0213  CALL  KYBD( 2HMS , 21 ) 

0214  1600  CONTINUE 

0215  GOTO  200 

0216  C 

0217  C  LIST  HEADER  WORD  INFORMATION  ************************ 

0218  C 

0219  1800  CALL  IOSU(NU,0) 

0220  IF(NU.EQ.l)  WRITE(NU ,5028) 

0221  WRITE(NU, 1810) 

0222  1810  FORMAT (/ , 10X, "  WORD  •" ,10X, "USAGE" ,/> 

0223  WRITE( NU ,1819 ) 

0224  1819  FORMAT ( / , 10X, "  ASCII  STORAGE  AREA",/) 
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0225  WR ITE ( NU  ,  181 1 ) 

0226  1811  FORMAT < 11X , " 10 " , 12X ,  “ ‘TEST  ID") 

0227  WR ITE ( NU , 1812 ) 

0228  1812  FORMATdlX,  "24"  ,12X,  "EXCITER  ORIENTATION") 

0229  URITE(NU, 1813) 

0230  1813  FORMATdlX,  "26"  ,12X,  "DATE", /,1  IX,  "30"  ,  12X,  "TIME"  ) 

0231  URITE(NU, 1814) 

0232  1814  FORMATdlX,  "34"  ,12X,  "DATA  TYPE  CODE  "  ,  /  ,  1 IX  ,  "36  "  ,  12X  ,  “ZOOM  RANGE") 

0233  URI TE(NU, 1817) 

0234  1817  FORMAT (/, 1  OX, "  INTEGER  STORAGE  AREA",/) 

0235  WR ITE  <  NU , 1815  > 

0236  1815  FORMATdlX,  "45"  ,12X,  "RESPONSE  POINT  NUMBER",/, 

0237  1  11X, "46", 12X, "EXCITATION  POINT  NUMBER",/, 

0238  2  11X, "49" ,12X, "LOAD  CELL  MODEL  #",/, 

0239  3  1 IX , "50 " , 12X , "LOAD  CELL  SERIAL  *  "  ) 

0240  WR ITE ( NU , 1818 ) 

0241  1818  FORMAT ( / , 1  OX , "  REAL  STORAGE  AREA",/) 

0242  WRITE(NU, 1816) 

0243  1816  FORMATdlX,  "75",12X,  "MINIMUM  FREQUENCY",/, 

0244  1  11X, "77" , 12X, "DELTA  FREQUENCY" ,/) 

0245  GO  TO  1025 

0246  C 

0  247  C  ***#**###*##***###** fc**#*##**#**#**###**  #**#*######*#**#* 

0248  C  CHANGE  OLD  Y8  FORMAT  TO  NEU  FORMAT  USING  HEADER  AREA  (  %  ) 

0  249  C  *#*##*# 

0250  C 

0251  2000  CALL  IOSW(LU,0) 

0252  WRITE (1,2010) 

0253  2010  FORMAT (/, "ENTER  OLD  TEST  I.D.  :"> 

0254  READ (1,2015)  IOID( 1 ) , IQID(2> 

0255  2015  FORMAT ( 2A2 ) 

0256  WRITEd  ,5004) 

0257  READ (1,1210)  IZOOM 

0258  DO  2020  1=1,3 

0259  2020  IM( I )=ID( I ) 

0260  DO  2040  I J=IPAR 1 , IP AR2 

0261  IF ( ISSW ( 14 ) . LT . 0  )  GOTO  200 

0262  CALL  KYBD(2HMS,31 , I J ) 

0263  CALL  K YBD ( 2HMS ,11) 

0264  CALL  BCHK ( IBS, IH(5) ) 

0265  C 

0266  C  GET  OLD  TEST  ID 

0267  C 

0268  II=IH<5>/2  -  20 

0269  CALL  GETU ( 0 , I I , IZ 1 , I Z3 ) 

0270  II=II+i 

0271  CALL  GETU(0,II,IZ2,IZ3> 

0272  IF'  (  ( IZ1  ,NE  ,  IOID(i)  )  .OR  ,  (IZ2.NE,  IOID  (  2  )  ) )  GOTO  2040 

0273  C 

0274  C  GET  POINT  ,  ORIENTATION  AND  DATE 

0275  C 

0276  DO  2041  K=i,3 

0277  11=11+1 

0278  CALL  GETW( 0 , I I , IPT (1 > , 0 > 

0279  CALL  ASCPT ( IPT ( 1 ) > 

0280  ID(K)=IPI(2) 
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0281 

0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 


2041  CONTINUE 

II  =  II  +  1 

CALL  GETW<0,II,IDi,0) 

II  =  II  +  1 

CALL  GETW<  0  > II > IS< 1 ) ,0) 

CALL  K  YBD  (  2HMS , 31 , - 1 , 1 > 

DO  2042  K=9 , 44 

2042  IH(K)  =  2H  . 

IF ( ISSW ( 15 ) . LT . 0 )  GOTO  2043 
IF(ID1 .EQ.2HX  )  IDi  =  1 
IF ( ID1 . EQ . 2H-X )  IDI  =  -1 
IF ( IDi . EQ . 2HY  )  IDI  =  2 
IF ( IDi . EQ . 2H-Y )  IDi  =  -2 
IF ( IDI . EQ . 2HZ  >  IDi  =  3 
IF ( IDI . EQ . 2H-Z )  IDI  =  -3 
CALL  COD IT (IS(i),IDi) 

GO  TO  2045 

2043  IF (IDi . EQ . 2H-X )  IDi=2HX- 
IF ( IDi . EQ . 2H-Y )  IDi=2HY- 
IF ( IDi . EQ . PK-Z )  ID1=2HZ~ 

IPT ( 1 )=IS( 1 ) 

CALL  ASCPT ( IPT ( 1 > ) 

IS(2)=IPT ( 1 ) 

IS(3)=IPT (2) 

C 

C  PUT  INFO  INTO  HEADER 

C 

2045  CALL  STORH<0) 

IH(36)=IZ00M 

IH(34)=2H23 

CALL  KYBD(2MMS,2i ) 

2040  CONTINUE 

DO  2050  1=1,3 
2050  ID ( I ) *IM ( I ) 

GOTO  200 
C 

C  CLEAR  DATA  RECORDS  FOR  USE  BY  Y88  (  CL  ) 

C  ***X*******%*********X*t*****************************X**X 

c 

3000  CALL  IOSW(LU,0) 

DO  3040  II=IP AR 1 , IP AR2 
IF ( ISSW( 14) . LT ■ 0 )  GOTO  200 
CALL  KYBD(2HMS,3i ,11) 

CALL  K YBD ( 2HMS ,11) 

CALL  BCHK (IBS , IH ( 5 ) ) 

IH( 6)  =  12345 

CALL  KYBD(2HMS,3i ,-1,1) 

CALL  KYBD(2HMS,21 ) 

3040  CONTINUE 
GOTO  200 
C 

C  ####*##*#!M***#***#**#**#**###**#****#*#****#**) ************* 

C  READ  TEST  SET-UP  (  X<  ) 

C  Jk*********************************************************** 

c 
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0337 

0338 

0339 

0340 

0341 

0342 

0343 

1)344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

0392 


4000  IF< IPARi . LT . 0 )  IPARi  *  JRECMX 
CALL  COM2<0, IPARi) 

C 

C  CHECK  HEADER  FOR  TYPE  CODE  OF  "75" 

C  IF  NOT  -75"  ,  PRINT  WARNING  BUT  PROCEED 
C 

IF(IH<34) .NE.2H75)  WRITEC 1 ,4002) 

4002  FORMAT</, "NON-STANDARD  SET-UP  BLOCK") 

IPARI  *  0 
NDIR=0 

DO  4010  1=1,3 

IF<MN( I ) .EQ. 0)  GOTO  4010 

NDIR=I 

4010  CONTINUE 
IFLAG2=0 

IF(LMN.NE.O)  IFLAG2=i 
IF  <  NDIR . NE . 0 )  IFLAG2=1 
IF  < IXP ( 1 ) . NE . 0 )  IFLAG2=i 
IFLAG3=0 

IF (KTEST , NE . -1 )  IFLAG3=i 
KZOOM=i 

IF(NZR.EQ.O)  GOTO  7000 
DO  4020  1=1 ,NZR 

IF < IR ( I ) . NE . 0 . OR . IOVL < I ) .NE.0>  KZOOM=0 
4020  CONTINUE 

GO  TO  7000 
C 

C  ************#*#***#***#*#********V************************** 

C  STORE  TEST  SET-UP  (  X>  ) 

C  ************************************************************ 

C 

4500  IFdPARi  .LT.  0)  IPARI  =  JRECMX 
CALL  STORH(O) 

CALL  C0M2<1 , IPARi) 

GO  TO  200 
C 

C  ********************************************************** 

C 

C  SEARCH  FOR  POINT  NUMBER  (  /.  ) 

C 

C  ********************************************************** 

C 

4900  CALL  IOSW(LU,0) 

DO  4910  I*IPAR2 , IPAR3 
IF< ISSW( 14) . LT . 0 )  GOTO  200 
CALL  KYBD(2HMS ,31,1) 

CALL  KYBD(2HMS ,11) 

IF(IH<45) .NE. IPARI)  GOTO  4910 
WRITE(LU,4905)  IPAR 1 , IH( 19 > , I 
4905  FORMAT <I4,1X,A2,"  IS  IN  RECORD  ",I4> 

4910  CONTINUE 
GO  TO  200 
C 

C  ******************************************************** 

C  PRINT  RUN-LOG  <  /L  > 

C  ******************************************************** 
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0393 

0394 

0395 

0396 

0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

0438 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0448 


C 

5000  CALL  IQSW(LU , 0 ) 

IFCIPARi .GT .4)  GOTO  338 

IF ( IPAR 1 . LE . 0 . OR . IP AR 1 . EQ . 3)  GOTO  5500 

UR ITE ( 1 , 8120  > 

READ (1,8125)  ( IT ( I I ) , 11=1 ,5) 

IF ( IPARi . EQ . 4)  GOTO  5600 

5023  WRITE( 1,5004) 

5004  FORMAT  (//'ENTER  ZOOM  RANGE.  :  " ) 

READ (1,1210)  IZOOM 
C 

C  ANALOG  IN  <RA)  OR  "ZA"  WILL  INDICATE  ALL  ZOOM  RANGES 

C 

IF( IZOOM. EQ.2HRA)  IZ00M=2HZA 

IF ( IPAR 1 . NE . 2 . AND . IZOOM , EQ . 2HZA)  GOTO  5025 

DO  5024  11=1,10 

IF< IZOOM . EQ . IZR(II) >  GOTO  5025 

5024  CONTINUE 
WRITEd  ,5008) 

5008  FORMAT (/ , "INVALID  RANGE”) 

GO  TO  5023 

5025  IF  ( IPAR  1  .  EGJ .  2 )  GOTO  5100 
C 

C  RUN  LOG  TYPE  1 

C 

C  GIVES  RUN  LOG  BY  RECORD  NUMBER 

C  FOR  GIVEN  TEST  I.D. 

C 

CALL  IOSU (LU , 0 ) 

NLIN=54 

IF(LU.NE.l)  WRITE(LU,5080 ) 

IF(LU.NE.i)  GO  TO  5029 

NLIN=25 

WRITE(LU,5028) 

5028  FORMAT < " " > 

5029  WRITE(LU,5030)IT(i> ,IT(2) ,IT<3> ,IT<4) ,IT(S) 

5030  FORMAT < / , 10X , "RUN  LOG  FOR  TEST:  ",5A2> 

URITE(LU ,5035) IZOOM 

5035  FORMAT </,i OX, "ZOOM  PARAMETER:  ”,A2,//) 

WR ITE (LU ,5040 ) 

5040  F0RMAT(S9X, "FREQUENCY” ,/,10X, "RECORD" ,3X, "POINT", 3X, 

*  "ORIENT”, 4X, "DATE”, 5X, "ZOOM", 4X, "MINIMUM”, 4X, "MAXIMUM",/) 
111*0 
IFLAG=0 

DO  5090  I J=IPAR2 , IP AR3 
IF ( ISSW( 14) . LT . 0 )  GOTO  200 
CALL  KYBD(2HMS , 31 , I J ) 

CALL  KYBD(2HMS, 11 ) 

CALL  CHK ID ( IT , IC ) 

IF(IC.EQ.O)  GO  TO  5090 
IF ( ISSW< 15) . LT . 0 )  GOTO  5090 
C 

C  CHECK  DATA  TYPE  CODE  FOR  FREQ.  DATA 
C 

IC«IOR ( I AND( IH(34) ,77400B) ,60B) 

IF ( IC , EQ . 2H70 )  GOTO  5062 
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0449  IF ( I ZOOM . EG . 2HZA)  GO  TO  5045 

0450  IF  < IH<36)  . NE . IZOOM)  GO  TO  S090 

0451  5045  FM(i)=RH(l ) + RH < 2 ) *FLOAT < IH< 5 > /2 > 

0452  WRITE(LU,5060>IJ,IH<45> , IH< 19) , IH<26> , IH(27> ,IH(28) , 

0453  *  IH<36>,RH<i>>FM<i> 

0454  5060  FORMAT <1  OX, 15 , 5X , I 3 > 6X , A2 , 3X , 3 < iX , A2 ) , 4X , A2 , iX , 2F1 1 , 4 > 

0455  GO  TO  5068 

0456  C 

0457  C  CHECK  DATA  TYPE  CODE  FOR  TEST  OR  MODAL  SET-UP 

0458  C 

0459  5062  IC=IH<34> 

0460  IF<IC.EQ,2H75)  WRITE(LU>S063>  IJ 

0461  IF (IC.EQ.2H75)  GOTO  5068 

0462  IF ( IC . NE . 2H71 )  GOTO  5090 

0463  IF < I J . LE . ( IFLAG+i ) >  GOTO  5090 

0464  1FLAG=I J 

0465  WR ITE(LU ,5064 )  I J 

0466  5063  FORMAT  ( 1  OX ,  IS ,  5X  ,  “ .  Y90  :  TEST  SET-UP  . ") 

0467  5064  F  ORMAT  <  1  OX ,  15 , 5X  >  *' .  Y  9:  MODAL  SET-UP  . "  ) 

0468  5068  III=III+i 

0469  IF ( ISSW ( 0 ) . LT . 0 )  GOTO  5090 

0470  IF< I II . GE . NLIN )GG  TO  5070 

0471  GO  TO  5090 

0472  5070  IF(LU.EQ.i)  GOTO  5081 

0473  UR ITE  <  LU ,5080  > 

0474  5080  F  ORMAT  < ///// ) 

0475  5081  URITE(LU,5030)IT(1) , IT ( 2 ) ,IT(3) ,IT(4) , IT  <  5  > 

0476  WR1TE(LU,5035) IZOOM 

0477  URITE(LU >5040 ) 

0478  IF(LU.EQ.l)  NLIN=26 

0479  II 1=0 

0480  5090  CONTINUE 

0481  GO  TO  200 

0482  C 

0483  C  RUN  LOG  TYPE  2 

0484  C 

0485  C  GIVES  RUN  LOG  BY  POINT  NUMBER  AND  ORIENTATION 

0486  C  UNDER  A  GIVEN  TEST  I.D.  AND  ZOOM  PARAMETER 

0487  C 

0488  5100  IPTMAX^O 

0489  IPTMIN-IPNTMX 

0490  CALL  KYBD(2HBS , IPNTMX) 

0491  IBS*IPNTMX 

0492  CALL  K YBD ( 2HCL , 1 ) 

0493  CALL  KYBD (2HCL  > 2 ) 

0494  CALL  KYBD(2HCL ,3) 

0495  DO  5200  I=IP ARE , IP AR3 

0496  IF(ISSU(14) .LT.0)GO  TO  200 

0497  CALL  KYBD(2HMS , 31 , I ) 

0498  CALL  KYBD(2HMS , 11 ) 

0499  CALL  CHKID(IT,IC) 

0500  IF(IC.EQ.O)  GOTO  5200 

0501  IF< IH<36) .NE. IZOOM)  GO  TO  5200 

050  2  C 

0503  C  CHECK  DATA  TYPE  CODE  FOR  FREQ.  DATA 

0504  C 
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OS  OS 

0S06 

0S07 

0S08 

OS09 

OSitt 

OSil 

0512 

0513 

0S14 

OSiS 

0516 

0S17 

0518 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0538 

0539 

0540 

0541 

0542 

0543 

0544 

0545 

0546 

0547 

0548 

0549 

0550 

0551 

0552 

0553 

0554 

0555 

0556 

0557 

0558 

0559 

0560 


IC=IQR ( 6GB , ( I AND (IH(34),7740QB)) ) 

IF ( IC . EQ . 2H70 )  GOTO  5200 
C 

IS1=IH(4S) 

IF(ISl.LE.O)  GOTO  5200 
IF ( ISi , GT . IPNTMX )  GOTO  5200 
IFdSi.GT.  IPTMAX )  IPTMAX=IS1 
IF ( ISI . LT . IPTMIN) IPTMIN-IS1 
ID1=IH( 19) 

IFdDi  .-EQ.2HX  )  IXX(  ISi  )*  I 
IFdDi.EQ.2HX-)  IXXCIS1)=-I 
IFdDl.EQ.2HY  )  lYY(ISi)*  I 
IFdDi.EQ.2HY-)  IYY(IS1)*-I 
IF< ID1 . EQ . 2HZ  )  IZZ(IS1>=  I 
IFdDi  .EQ.2HZ-)  IZZ(ISi)*~I 
5200  CONTINUE 
C 

C  FIND  LAST  RECORD  FOUND  TO  GET  FREQ.  INFO 

C 

IF< 1XX< IPTMAX) .ME. 0)  I-IXX ( IPTMAX ) 

IF (I YY ( IPTMAX  > . NE . 0 )  I  =  IYY (IPTMAX) 

IF (IZZ ( IPTMAX ) . NE . 0 )  I=IZZ( IPTMAX) 

I  =  IABSd.) 

CALL  K YBD ( 2HMS ,31 ,  X  ) 

CALL  KYBD ( 2HMS ,11) 

FM(i )=RH( t )+RH(2)*FL0AT(IH(5)/2> 

CALL  IOSW ( LU ,  0 ) 

NL IN-53 

IF  (LU  .  NE  .  i  )  WR  ITE(LU  , 5080  > 

IF(LU.NE.i)  GOTO  5210 
NL.IN=24 

WRITE(LU,S028) 

5210  WRITE ( LU ,5030)(IT(I) ,1=1,5) 

WRITE(LU , 5215) I ZOOM 

5215  FORMAT ( / , 10X , "ZOOM  PARAMETER:  M,A2,/) 

WRITE(LU,5220)  RH(l),FM(i) 

5220  FORMAT( 10X, "MINIMUM  FREQUENCY  : "  ,F1S .7,/, 10X, 

*  "MAXIMUM  FREQUENCY  :",FiS.7,//> 

WR ITE(LU ,5270 ) 

5270  FQRMAT( 10X, "POINT  NO . " ,SX , "X-DIR " ,8X , "Y-DIR "8X , "Z-DIR " ) 
111  =  0 

DO  5400  1=IPTMIN, IPTMAX 
I F ( I SSW (14) . LT . 0 >  GO  TO  200 
C 

C  IF  NO  DATA  STORED  FOR  A  POINT  NUMBER  HIGHER 

C  THAN  250  ,  THEN  SKIP  PRINT  OF  THAT  POINT. 

C 

J»IXX(  I )  +  IYY  d  >  +  IZZd  ) 

IF ( I . GT . 250 . AND . J . LE . 0  >GO TO  540  0 
NX(1 )*IXX( I ) 

NY ( 1 ) -I YY ( I ) 

NZ(1)=IZZ(I) 

CALL  ASCPT ( NX  < 1 ) ) 

CALL  ASCPT (NY ( i ) ) 

CALL  ASCPT (NZ(i)> 

IFdXXd)  .EQ.O)  NX<  1  )*2H 
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0561 

0562 

0S63 

0564 

0565 

0566 

0567 

0568 

0569 

0570 

0571 

0572 

0573 

0574 

0575 

0576 

0577 

0578 

0579 

0580 

0581 

0582 

0583 

0584 

0585 

0586 

0587 

0588 

0589 

0590 

0591 

0592 

0593 

0594 

0595 

0596 

0597 

0598 

0599 

0600 

0601 

0602 

0603 

0604 

0605 

0606 

0607 

0608 

0609 

0610 

0611 

0612 

0613 

0614 

0615 

0616 


IFdXXd) ,EQ. 0)  NX ( 2) =2H- 
IF(IYYd)  .EQ.0>  NY <  1 ) -2H 
IF  ( IYY  <  I  >  .  EQ  .  0  )  NY  ( 2  )  =  2H- 
IF ( IZZ( I ) . EQ . 0 )  NZ(i)=2H 
IFdZZd)  .EQ.O)  NZ(2)=2H- 
IF < ISSW( 15) . LT . 0 )  GOTO  5400 

WR ITE ( LU ,5350 )I,NX(1),NX(2) , NY ( 1 > ,NY < 2 ) , NZ( 1 ) , NZ ( 2 ) 

5350  FORMAT (11X,I5,3(9X,2A2) > 

III=III+i 

IF(ISSW(0) .LT.O)  GOTO  5400 
IFdll  .  GE  .  NLIN)GO  TO  5360 
GO  TO  5400 

5360  IF(LU.EQ.i)  GOTO  5370 
WRITE(LU,50S0  ) 

5370  WRITE  (LU,  5030  XITdJ)  ,11*1,5) 

WRITE(LU,5215)IZ00M 
WRITE(LU ,5220 )  RH(1>,FM(1) 

WRITE(LU,5270 ) 

IF(LU.EQ.i)  NLIN=25 
111  =  0 

5400  CONTINUE 

GO  TO  200 
C 

C  RUN  LOG  TYPE  3 

C 

C  GIVES  SEQUENTIAL  RUN  LOG  OF  DISK 

C 

5500  NLIN=59 

IF(LU.NE.i)  WR ITE( LU ,5080  > 

IF(LU.NE.i)  GOTO  5501 
NLIN=30 

WR ITE ( LU , 5028 ) 

5501  WR ITE ( LU , 5502 ) 

5502  FORMAT(/,10X, "RECORD", 3X, "TEST  ID  ", 5X , “ZOOM" , 3X , "TYPE" , 

*  3X, "POINT ",2X, "ORIENT  ",4X, "DATE",//) 

111  =  0 
IFLAG=0 

DO  5510  I=IPAR2 , IPAR3 
IF(ISSW(14) .LT.O)  GOTO  200 
CALL  K YBD( 2HMS ,31,1) 

CALL  KYBD(2HMS, 11) 

IF(IH(6> . NE , 52525B ) GO  TO  5510 
IF(ISSU(1S> .LT.O)  GOTO  5510 
IC=IOR ( I AND (IH(34) ,77400B) , 60B ) 

IF (IC . EQ . 2H70 )  GOTO  5520 

WRITE(LU,5505)I,IH(10) ,IH(il) , IH ( 12 ) , IH( 13 ) , IH( 14 ) ,IH(36) , 
1  IH( 34 ) , IH(45) ,IH( 19) ,IH(26) ,IH(27) , IH( 28 ) 

5505  FORMAT ( 1 IX , 14 , 4X , SA2 , 3X , A2 ,5X , A2 , 18 , 6X , A2 , 3X , 3( A2 , IX > ) 

GO  TO  5515 
5520  IC*IH(34) 

IF (IC . EQ . 2H75)  WR ITE (LU , 5522 )  I , ( IH< J) , J*10 , 14 > 

IF (IC . EQ . 2H75 )  GOTO  5515 
IF (IC . NE . 2H71 )  GOTO  5510 
IF (I . LE . IFLAG+i )  GOTO  5510 
IFLAG-I 

UR ITE (LU, 5524)  I , <IH( J) , J-10 , 14) 
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0617 

5522 

FORMAT  ( ‘  ,I4,4X,5A2,3X>  *' .  Y90  :  TEST  SET-UP  . "  > 

0618 

0619 

5524 

5515 

FORMAT  (  i  l  A ,  14 , 4X ,5A2 , 3X ,  " .  Y  9:  MODAL  SET-UP  . "  > 

III*III+i 

0620 

IF(ISSU(0) .LT.O)  GOTO  5510 

0621 

IF  < III , GE . NLIN ) GO  TO  5507 

0622 

GO  TO  5510 

0623 

5507 

IF(LU.EQ.i)  GOTO  5508 

0624 

WRITE(LU,5DB0> 

0625 

5508 

UR ITE ( LU , 5502 ) 

0626 

IF(LU.EQ.i)  NLIN=3i 

0627 

111*0 

i 

0628 

5510 

CONTINUE 

0629 

GO  TO  200 

0630 

0631 

C 

C 

"RUN-LOG "  TYPE  4 

0632 

C 

0633 

C 

LIST  FMIN  ,  FCNTR  ,  FMAX  ,  FDELT  FOR  ZOOM  RANGES 

0634 

C 

UNDER  GIVEN  TEST  I.D.  BETWEEN  RECORDS  IPAR2  6  IPAR3 

0635 

C 

0636 

560  0 

IF(LU.EQ.i)  WR ITE (LU ,5028 ) 

0637 

WRITE ( LU , 5602. )  ( IT ( I )  ,  1  =  1 ,5 ) 

0638 

5602 

FORMAT (/,1 OX, "TEST  I.D.  :  " ,5A2) 

0639 

WR I TE ( LU ,5604) 

1  0640 

5604 

FORMAT ( / , 7X , "ZOOM" ,27X , "FREQUENCIES" , / , 6X , "RANGE" ,6X  , 

0641 

»  "MINIMUM" ,  9X, "CENTER "  ,8X , "MAXIMUM" , 10X , “DELTA" , / ) 

0642 

DO  5606  1=1,6 

0643 

FN ( I ) =0 . 

0644 

F  C  ( I )  =  0  . 

0645 

FM ( I ) =0 , 

i  0646 

FD ( I ) =0  . 

0647 

S606 

CONTINUE 

0648 

DO  5620  I=IPAR2, IPAR3 

0649 

IF(ISSW(14) .LT.O)  GOTO  200 

0650 

CALL  K YBD ( 2HMS ,31,1) 

0651 

CALL  K YBD ( 2HMS , i 1 ) 

0652 

CALL  CHK ID ( IT , IC ) 

0653 

IFdC.EQ.  0)  GOTO  5620 

0654 

IC=I0R<IAND(IH(34) ,7740010 ,60B> 

065S 

IF ( IC . EQ . 2H70 )  GDTD  5620 

0656 

ni-o 

0657 

DO  5608  11=1,10 

0658 

IF(IZR(II> .NE.IH(36>)  GOTO  S608 

0659 

III  =  II 

0660 

5608 

CONTINUE 

0661 

IFdll  .EQ,  0)  GOTO  5620 

0662 

IF(FC(I II > . EQ . O >  GOTO  5610 

0663 

FTEST=RH( 1 ) +RH( 2 ItFLOAT (IH(S>/2) 

0664 

0665 

C 

FTEST*ABS( 1 , 0  -  FTEST/FM( III > ) 

0666 

C  #*##*#**  FTEST  6  FM  WITHIN  1%  ?  ###*#**** 

0667 

0668 

C 

IF(FTEST. LT.O. 001)  GOTO  5620 

0669 

IF ( ISSW( 15 ) .LT.O)  GOTO  5620 

0670 

WRITE(LU,56U)  IH(36),I 

0671 

5611 

FORMAT  <  *  DISCREPENCY  IN  FREQUENCIES  FOUND  FOR", 

0672 

*  IX, "ZOOM  RANGE  ",A2,"  AT  RECORD", 14) 

A- 174 

r  ", . ' 

J 

PAGE  0013  Y0090 


FTN4  COMPILER!  HP24177  (SEPT.  1974) 


0673 
0674 
0675 
0676 
0  677 
0678 
0679 
0680 
0681 
0682 
0683 
0684 
0605 
0686 
0687 
0688 
0689 
0690 
0691 
0692 
0693 
0694 
0695 
0696 
0697 
0698 
0699 
0700 
0701 
0702 
0703 
0704 
0705 
0706 
0707 
0708 
0709 
0710 
0711 
0712 
0713 
0714 
0715 
0716 
0717 
0718 
0719 
0720 
0721 
0722 
0723 
0724 
0725 
0726 
0727 
0728 


GO  TO  5620 
5610  FN( III )=RH( 1 ) 

FD( III >=RH(2) 

FTEST  =RH ( 2 ) *FLQAT (IH<5)/4) 

FC(III)=RH(1)+FTEST 
FM<III)=FC(III)+FTEST 
5620  CONTINUE 

DO  5630  1=1,10 

IF <FC( I > . EQ . 0 )  GOTO  5630 

WRITE(LU,5635)  IZR ( I ) ,FN( I ) ,FC ( I ) ,FM( I ) ,FD( I ) 

5635  F0RMAT(8X,A2,4F15.7) 

5630  CONTINUE 
GO  TO  200 
C 

C  I************************************************************* 

C  PUNCH  TEST  SET-UP 

C  ************************  *************************  ************ 

C 


6400  LU=4 
C 

C  PUNCHED  PAPER  TAPE  MUST  BEGIN  WITH  AN  ASTERISK 

C 

WRITE(LU, 6401 ) 

6401  FORMAT ("*") 

C 

URITE(LU,8125)  < IT< I ) , 1=1 ,5) 

URITE(LU,8135)  ( ID( I ) , 1=1 , 3 ) 

WRITE <LU, 6403)  IREC , IXP ( 1 ) , KTYPE , IXP ( 2 ) , IXP ( 3 > , IXDIR , 

*  LMN , LSN , NDIR , IFLAG2, IFLAG3 

6403  FORMAT(2I4,4A2, 2110, 312) 

DO  6404  1=1,3 

6404  WR ITE < LU , 6405 )  I , MN < I ) , ISN ( I ) , TCAL ( I ) 

6405  FORMAT (13,2110 ,E15.7> 

WRITE(LU,6406)  K ZOOM , K TEST , NZR 

6406  FORMAT (312) 

DO  6407  1=1,5 

6407  WRITE(LU,7441)  ICF ( I > , IBW( I ) , IR ( I ) , I AVG ( I ) , IOVL ( I ) 

GO  TO  200 

C 

C  ******* ****************************************************** 

C  PHOTOREAD  OPTION  FOR  INPUTTING  TEST  SET-UP 

C  ************************************************************* 

C 


6500  PAUSE  1 
LU=S 


C 

C  SEARCH  LEADER  FOR  AN  ASTERISK 

C 

CALL  POSIT ( 5 ) 


READ( LU ,8125 )  ( IT ( I ) , 1=1 , 5 ) 

READ(LU,8135)  ( ID( I > , 1=1 ,3) 

READ ( LU , 6403 )  IREC , I XP ( 1 ) , KTYPE , IXP ( 2 ) , IXP ( 3 ) , IXDIR  , 
$  LMN, LSN, NDIR, IFLAG2 , IFLAG3 
DO  6503  1=1,3 

6503  READ ( LU , 6405 )  I, MN (I), ISN (I) ,TCAL( I ) 
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0729 

0730 

0731 

0732 

0733 

0734 

0735 

0736 

0737 

0738 

0739 

0740 

0741 

0742 

0743 

0744 

0745 

0746 

0747 

0748 

0749 

0750 

0751 

0752 

0753 

0754 

0755 

0756 

0757 

0758 

0759 

0760 

0761 

0762 

0763 

0764 

0765 

0766 

0767 

0768 

0769 

0770 

0771 

0772 

0773 

0774 

0775 

0776 

0777 

0778 

0779 

0780 

0781 

0782 

0783 

0784 
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READ(LU,6406)  K ZOOM ,K TEST ,NZR 
DO  6505  1=1,5 

6505  READ(LU ,7441 )  ICF< I ) , IBU( I > , IR ( I ) , IAUG< I ) , IOVL< I ) 

I=ISWR (406,0,0) 

IPAR 1=0 
GOTO  7000 
C 

C  WRITE  TEST  SET-UP  INFORMATION  (  W  ) 

C 

7000  CALL  IOSW ( LU , 0 ) 

IF (LU . EQ . 4)  GOTO  6400 
IF( IPARi . GT . 3)  IPAR 1=0 

IF(Ll) . EQ  .  1 .  AND  .  IPAR  1  .  LT  .  0  )  WR ITE (LU, 5028) 

IF ( IPAR 1 . EQ . 1 )  GOTO  7300 
IF ( IPAR 1 . EQ . 2 )  GOTO  7400 
IF( IPARI . EQ . 3 )  GOTO  7500 
C 

C  WRITE  TEST  ID  6  DATE  ************************* 

C 

WRITE(LU ,7201 )  ( IT ( I I ) , I 1=1 , 5 > 

7201  FORMAT (///,10X,  11  TEST  ID  :  ",SA2> 

WRITE(LU ,7202)  ( ID( I I ) , I 1=1 , 3 ) 

7202  FORMAT (/,10X,  "  DATE  :  ",3(A2,1X)> 

WR ITE(LU , 7203 )  IREC 

7203  FORMAT (/, 10X, “  DATA  START  RECORD  :  " ,15) 

IF(IPAR1 .EQ. 0)  GOTO  200 

IF ( ISSW (14) . LT  .  0 )  GOTO  200 
C 

C  WRITE  EXCITER  AND  TRANSDUCER  INFORMATION  ****** 

C 

7300  IF ( IFLAG2 . NE . 0 )  GOTO  7310 
WRITE(LU,7309) 

7309  FORMAT ( / , 1  OX , "  NO  LOAD  CELL  OR  TRANSDUCER  INFORMATION") 

IF ( IPARi . EQ . 2 )  GOTO  200 

GO  TO  7400 

7310  WR ITE (LU ,7301)  IXP(1),IXDIR 

7301  FORMAT ( /// , 10X , "  EXCITER  POSITION  i  ",I4,/,10X, 

1  "  EXCITER  ORIENTATION  :  ",A2) 

WR ITE(LU ,7302 )  LMN,LSN 

7302  FORMAT ( / , 10X , "  LOAD  CELL  MODEL  *  " , I 1 1 , / , 10X , 

1  "  LOAD  CELL  SERIAL  *  ",I1Q) 

IF(NDIR .EQ, 0)  GOTO  7306 
WRITE(LU,73U3) 

7303  FORMAT ( /// , 10X , “  RESPONSE  TRANSDUCER < S >”,//, 1 IX , "NUMBER " , 
1  9X, "MODEL  #",i OX, "SERIAL  #"  ,6X, "CALIBRATION" ,/) 

DO  7304  11=1, NDIR 

WR ITE (LU, 7305)  I I , MN( I I ) , ISN( I I ) ,TCAL< II ) 

7305  FORMAT (10X,I4,7X,I10,8X,IiO,5X,F12.3) 

7304  CONTINUE 

7306  IF ( IPAR 1 . EQ . 1 )  GOTO  200 
IF(ISSW(14) .LT. 0)  GOTO  200 

C 

C  WRITE  ZOOM  INFORMATION  *********************** 

C 
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1)785 

0786 

0787 

0788 

0789 

0790 

0791 

0792 

0793 

0794 

0795 

0796 

0797 

0798 

0799 

0800 

0801 

0802 

1)803 

0804 

0805 

0806 

0807 

0808 

0809 

0810 

0811 

0812 

0813 

0814 

0815 

0816 

0817 

0818 

0819 

0820 

0821 

0822 

0823 

0824 

0825 

0826 

0827 

0828 

0829 

0830 

0831 

0832 

0833 

0834 

0835 

0836 

0837 

0838 

0839 

0840 


7400  IF ( IFLAG3 . NE . 0 )  GOTO  7401 
WRITE(LU,7405) 

7405  FORMAT  (  /  ,  1  OX , "  NO  ZOOM  TEST  INFORMATION") 

GO  TO  200 

7401  WRITE(LU,7408)  KTYPE 

7408  FORMAT ( // , 1  OX , "  DATA  TYPE  CODE : - ,2X,A2) 

IF ( KTEST . EQ . 0 )  WRITE ( LU , 741 1 ) 

IF  (KTEST  .  EG) .  1  >  WR ITE ( LU , 7421 ) 

7411  FORMAT (/, 10X, “  TEST  TYPE  :  IMPACT") 

7421  FORMAT < / , 10X , "  TEST  TYPE  :  RANDOM") 

IF(NZR.EQ.O)  GOTO  200 
IF(KZOOM . EQ . 0  >  WR ITE < LU , 7431 ) 

IF ( KZOOM . EQ . 1 )  WRITE(LU,7432) 

7431  FORMAT (/, 10X, "  CNTRFRQ " , 3X , "BNDWDTH " , 4X , "BGNREC " , 3X , 

*  "NUMAVGS "  ,  3X , "OULPFAC " ) 

7432  FORMAT ( / , 10X , "  CENTER  FREQ" ,6X , "BANDWIDTH" ,5X , "NO .  AVERAGES") 
DO  7440  11=1, NZR 

IF (KZOOM ■ EQ . 1 )  GOTO  7443 

WR ITE (LU, 7441)  ICF(II) >IBW(II),IR(II) , I AUG (II), IOVL (II) 

GO  TO  7440 

7443  WR ITE ( LU , 7442 )  IGF ( I I ) , IBW ( I I > , IAUG ( I I > 

7441  FORMAT (6X,5I10) 

7442  FORMAT ( 4X , 31 15  > 

7440  CONTINUE 

GO  TO  200 
C 

C  WRITE  HEADER  INFO  STORED  WITH  DATA  RECORD  IPAR2 

C 

7500  IF ( IPAR2 . LT . 0 .OR . IPAR2 ,GT. IRECMX)  GOTO  338 
CALL  K YBD ( 2HMS ,31 , IP AR2 ) 

CALL  K YBD ( 2HMS ,11) 

IF( IH(6) .EQ . 12345)  GOTO  7598 
IF ( IP AR 3 . GE . 0 )  GOTO  7600 
IF(LU.EQ.l)  WRITE(LU,5028) 

WR ITE(LU , 7502 )  IPAR2 

7502  FORMATdOX,  "HEADER  INFORMATION  FOR  RECORD"  ,  15 ,/ > 


WRITE(LU,7504)  ( IH ( I ) , I =1 0 , 1 4 ) 

7504  FORMAT  (/,i()X,  "TEST  I.D . "  ,5A2) 

WRITE(LU,7506)  ( IH( I ) , 1=26 , 28 ) 

7506  FORMATdOX,  "DATE . ",3A2,/> 

WRITE(LU,7508)  IH(16>,IH(17) 

7508  FORMATdOX,  "POINT  NUMBER . ",2A2> 

WRITE(LU,7510 )  IH(19) 

7510  FORMATdOX,  "TRANSDUCER  OR IENTATION  ....", 2X ,A2  ,/ ) 
WRITE(LU,7516>  IH(36) , IH(34) 

7516  FORMATdOX,  "ZOOM  RANGE . ",2X,A2,/, 

1  1  OX ,  "DATA  TYPE . ",2X,A2) 

WRITE(LU ,7511 )  IH(51) 

7511  FORMATdOX,  "TRANSDUCER  NUMBER . ",I3,/> 

WRITE(LU,7512)  IH(21 ) , IH(22) 

7512  FORMATdOX,  "EXCITER  LOCATION . ",2A2> 

WR ITE (LU, 7514)  IH(24) 

7514  FORMATdOX,  "EXCITER  ORIENTATION . ",2X,A2,/> 

WRITE(LU,7518)  ( IH< I ) , 1-47 , 50 > 


7518  FORMATdOX,  "TRANSDUCER  MODEL  NUMBER  16 ,/ , 

i  10X, "TRANSDUCER  SERIAL  NUMBER . . 16,//, 
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0841 

0842 

0843 

0844 

0845 

0846 

0847 

0848 

0849 

0850 

0851 

0852 

0853 

0854 

0855 

0856 

0857 

0858 

0859 

0860 

0861 

0862 

0863 

0864 

0865 

0866 

0867 

0868 

0869 

0870 

0871 

0872 

0873 

0874 

0875 

0876 

0877 

0878 

0879 

0880 

0881 

0882 

0883 

0884 

0885 

0886 

0887 

0888 

0889 

0890 

0891 

0892 

0893 

0894 

0895 

0896 


2  1  OX , "LOAD  CELL  MODEL  NUMBER.... 

3  1  OX, “LOAD  CELL  SERIAL  NUMBER... 
WRITE(LU ,7520  >  <RH( I > ,1*1 ,3) 

7520  FORMAKIOX, "MINIMUM  FREQUENCY... 

2  1  OX, "DELTA  FREQUENCY . 

3  1  OX, "DATA  CALIBRATION  NUMBER... 


"  » 1 6 » /  , 
»,I6,/> 


. “  ,  F 1 5 . 7 

" ,F15 . 7 , // , 

" ,F15 . 7 , / > 


> 


GO  TO  200 

7598  URITE<LU,7599>  IPAR2 

7599  FORMAT</, "RECORD", 14,  "  IS  CLEARED") 
GO  TO  200 


C 

C  WRITE  HEADER  WORD  NUMBER  IPAR3  FOR  RECORD  IPAR2 

C 


7600  WR ITE <LU , 7502 )  IPAR2 
WRITE(LU,7610 )  IPAR3 

7610  FORMAT ( 1  OX , " WORD " , 14 , "  CONTAINS  :",/> 

IF ( IPAR3 . LT . 1 0 )  WRITE(LU,7615)  IH(IPAR3) 

IF(IPAR3. GE.10.AND.IPAR3.LT. 45)  URITE(LU,7620 )  IH(IPAR3) 
IF(IPAR3,GE. 45, AND. IPAR3.LT. 75)  WRITE(LU,7630 )  IH(IPAR3> 
IF ( IPAR3 . LT . 75 )  GOTO  200 
IPAR3=<IPAR3-73>/2 


WRITECLU ,7640 )  RH<IPAR3> 
7615  FORMAT ( 10X ,87 , "B" ) 

7620  FORMAT ( 1  OX , A2 ) 

7630  FORMAT (1QX,I10) 

7640  FORMAT <10X,E15.7) 

GOTO  200 


C 

C  ENTER  TEST  SET-UP  THRU  KEYBOARD  (  K  ) 

C  ********************************************************** 

C 

8000  CALL  IOSW(LU,i) 

IF (LU . EQ , 5 )  GOTO  6500 
IF ( IPAR 1 , LE . 0 )  IPAR 1=0 
IF ( IPAR1 . EQ . 0 )  GOTO  8100 
IFCIPARi .EQ. 1)  GOTO  8200 
IF < IPAR 1 . EQ . 2 )  GOTO  8300 
GO  TO  338 

C 

C  KEYBOARD  0  ***********  TEST  ID  6  DATE  ************ 

C 

8100  DO  8111  II  =  1,5 

Bill  IT ( II >  *  2H 

WRITE ( i ,8120 ) 

8120  FORMAT</, "ENTER  TEST  I.D.  i " ) 

READ< i ,8125)  < IT< I I > ,11*1 ,5) 

8125  FORMAT (5A2) 

WRITE(1 ,8130 ) 

8130  FORMAT (/, "ENTER  DATE  i"> 

READ ( 1 , 8135 )  IDd  )  ,ID<2>  ,ID<3> 

8135  FORMAT  <3A2) 

WRITE( 1 ,8140  > 

8140  FORMAT </, "ENTER  DISK  STORAGE  START  RECORD  i"> 

READd,*)  IREC 

IFUREC.LE.O  .OR  .  IREC  .  GT  .  IRECMX)  IREC-1 
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0897 

GO  TO  200 

0898 

C 

0899 

c 

KEYBOARD  1  *********** 

LOAD  CELL  &  TRANSDUCER  ***** 

0900 

c 

0901 

c 

K  1  0 

i  INITIALIZES 

SET-UP 

0902 

c 

0903 

8200 

IF ( IPAR2 . NE . 0 )  GOTO  8205 

0904 

IFLAG2=0 

0905 

IS(i>=0 

0906 

NDIR=1 

0907 

L.MN=0 

0908 

LSN=0 

0909 

IXDIR=2H 

0910 

DO  8202  11=1,3 

0911 

IX( II )=II 

0912 

MN ( I I ) =0 

0913 

ISN ( I I ) =0 

0914 

TCAL ( I I ) =1 . 0 

0915 

IXP ( 1 1 ) =2H 

0916 

8202 

CONTINUE 

0917 

IXP<1)=0 

0918 

IF ( IDUMi . EQ . -1 )  GOTO  8300 

0919 

GO  TO  200 

0920 

8205 

IFLAG2=i 

0921 

WRITE( 1 ,8210 ) 

0922 

8210 

FORMAT</, "ENTER  EXCITER  POSITION 

AND  DIRECTION: 

[  INTEGERS 

0923 

READ(1,»)  IXP ( 1 ) , IXDIR 

0924 

CALL  CODIT(IXP(l) , IXDIR) 

0925 

WRITE (1,8220) 

0926 

8220 

FORMAT (/, "ENTER  LOAD  CELL 

MODEL 

•  AND  SERIAL 

#  :  ") 

0927 

READ(1,*)  LMN , LSN 

0928 

WR ITE ( 1 , 8230 ) 

0929 

8230 

FORMAT (/ , "ENTER  NUMBER  OF 

RESPONSE  DIRECTIONS  : 

") 

0930 

READ(1,*)  NDIR 

0931 

IF ( NDIR .EQ. 0)  GOTO  200 

0932 

WR ITE ( 1 , 8240 )  NDIR 

0933 

8240 

FORMAT (/, "ENTER", 13,”  RESPONSE  TRANSDUCER'S”,/ 

> 

0934 

1  "  MODEL  NUMBER  ,  SERIAL 

NUMBER  , 

CALIBRATION  NUMBER  :") 

0935 

DO  8245  11=1, NDIR 

0936 

8245 

READd,*)  MN(  II )  ,  ISN(  II ) , 

TCAL (II) 

0937 

GO  TO  200 

0938 

C 

0939 

C 

KEYBOARD  2  *********** 

ZOOM 

INFORMATION  ********** 

0940 

C 

0941 

C 

K  2  0 

;  INITIALIZES 

SET-UP 

0942 

C 

0943 

830  0 

IF ( IPAR2 . NE . 0 )  GOTO  8305 

0944 

IFLAG3=0 

0945 

NZR=0 

0946 

KZOOM=i 

0947 

KTEST=-1 

0948 

KTYPE=2H20 

0949 

DO  8302  11=1,5 

0950 

ICF ( II )=0 

0951 

IBU( II >=0 

0952 

IR(II)  =0 
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0953 

0954 

0955 

0956 

0957 

0958 

0959 

0960 

096i 

0962 

0963 

0964 

0965 

0966 

0967 

0968 

0969 

0970 

0971 

0972 

0973 

0974 

0975 

0976 

0977 

0978 

0979 

0980 

0981 

0982 

0983 

0984 

0985 

0986 

0987 

0988 

0989 

0990 

0991 

0992 

0993 

0994 

0995 

0996 

0997 

0998 

0999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 
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I AVG  ( 1 1 >  =0 
IOVL  < 1 1 ) =0 
8302  CONTINUE 

IF < IDUMi . EQ . -1 )  GOTO  50 
GO  TO  200 

8305  IFLAG3=i 
WRITE ( 1 , 8306 ) 

8306  FORMAT(/, "ENTER  DATA  TYPE  CODE  (2  CHARACTER ) i " > 

READ< 1 , 8307 )  KTYPE 

8307  FORMAT <A2) 

URITE(1 ,8330) 

8330  FORMAT(/, "ENTER  ZERO  FOR  IMPACT  OR  ONE  FOR  RANDOM  :") 

READd,*)  KTEST 
8301  URITE( 1 , 8310 ) 

8310  FORMAT  (//'INPUT  NUMBER  OF  ZOOM  RANGES 
READd,#)  NZR 
IF(NZR.LE.O)  GOTO  200 
IF (NZR . GT . 5 )  GOTO  8301 
WRITE ( 1,8315) 

8315  FORMAT(/, "ENTER  1  FOR  ON-LINE  ZOOM  OR",/, 

*  7X,  “0  FOR  OFF-LINE  ZOOM  : " ) 

READ(1,#>  KZOQM 

IF ( KZOOM . EQ . 1 )  WR ITE ( i ,8319 )  i 

IF  (KZOOM  .  EQ  .  0  >  URITE(i,B320> 

8319  FORMAT (//, "FOR  EACH  ZOOM  RANGE  INPUT  s  ",/,  "CENTER  FREQUENCY  ,  ", 

%  IX, "BANDWIDTH  ,  NUMBER  OF  AVERAGES") 

8320  FORMAT ( // , "FOR  EACH  ZOOM  RANGE  INPUT  CNTR  FREQ  ,  BNDWDTH", 

1  "  ,  BEGNG  REC  ,  NO.  AVGS  ,  OVRLP  FAC") 

DO  8325  11=1, NZR 
IF (KZOOM. EQ . 1 )  GOTO  8322 
IF (KZOOM . EQ . 0 )  GOTO  8324 

8322  READ(1,#>  ICF( II ) ,IBW( II ) , IAVG( II )  , 

GO  TO  8325 

8324  READd,*)  ICF(II) , IBU ( 1 1 ) , IR ( 1 1 ) , IAVG ( II ) , IOVL ( II ) 

8325  CONTINUE  I 

GO  TO  200  J, 

C  *##*#****#*####*****###**#*##*#*#*#*#**##***#***##*********** 

C 

C  REPLACE  DATA  ASSOCIATED  WITH  A  PARTICULAR  TRANSDUCER 
C  SUCH  AS  MODEL*  ,  SERIAL*  OR  CALIBRATION*  (  CV  ) 

C 

c  ###*##*###*##*#*#**###*#**#####***########**###*##**##*#**#**  I 

c  f 

9000  WRITE( 1,1015)  j 

READ( 1,1017)  IANS 

IF ( IANS . EQ . 1HY  >  GOTO  9400 

9001  IF ( ISSW( 14) . LT . 0 )  GOTO  200 
9009  ISER-0 

WR ITE( 1,9007) 

9007  FORMAT ( / , "ENTER  TRANSDUCER  NUMBER",/, 

*  "OF  DATA  TO  BE  CORRECTED  :") 

C 

C  VALID  NUMBER8  ARE  0,1, 2, 3 
C 

READd,*)  N 
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1009  IF(ISSW<14) .LT.O)  GOTO  200 

1010  IF ( N , GE . 0 . AND . N , LE . 3 )  GOTO  9002 

1011  C 

1012  C  IF  TRANSDUCER  NUMBER  IS  NOT  VALID  THEN  USE 

1013  C  SERIAL  NUMBER  FOR  SEARCH. 

1014  C 

1015  ISER=i 

1016  WRITEd, 9008) 

1017  9008  FORMAT</, “ENTER  SERIAL  NUMBER  INSTEAD:") 

1018  READ d ,  * )  N 

1019  IF<ISSW<14) .LT.O)  GOTO  200 

1020  IF(N.GT.O)  GOTO  9002 

1021  WRITEd  ,9010)  N 

1022  9010  FORMAT < / , I IS , "  i  INVALID  NUMBER") 

1023  GO  TO  9009 

1024  9002  WRITEd, 1030) 

1025  READd,*)  IK 

1026  IF( ISSU( 14 ) .LT.O)  GOTO  200 

1027  CALL  HDRWD( IK , I ) 

1028  IF(I.NE.O)  GOTO  9003 

1029  WRITEd, 1044)  IK 

1030  GO  TO  9002 

1031  9003  IF(I.NE.i)  GOTO  9005 

1032  WRITEd, 9004)  IK 

1033  9004  FORMAT ( / , "TO  CHANGE  WORD  NUMBER", 13,"  USE  THE",/, 

1034  *  "REPLACE  COMMAND  </R)") 

1035  GO  TO  200 

1036  9005  WRITEd, 1041)  IK 

1037  IF(ISSW<14) .LT.O)  GOTO  200 

1038  IF  <  IK  .  GE  .  75)  READd,*)  CRH(l) 

1039  IF<  IK  .  GE  .  45  .  AND  .  IK  .  LT  ,  75 )  READd,*)  NIH(l) 

1040  IF ( IK . NE . 19 )  GOTO  9020 

1041  READd, 1210)  NIHd) 

1042  IF(NIH(1)  .EQ.2H-X)  NIHd)=2HX- 

1043  IF(NIHd)  .EQ.2H-Y)  NIHd  )*2HY- 

1044  IF(NIHd)  .EQ.2H-Z)  NIHd)=2HZ- 

1045  9020  DO  9100  I=IP AR 1 , IPAR2 

1046  IF(ISSW(14) .LT.O)  GOTO  9200 

1047  CALL  KYBD(2HMS ,31,1) 

1048  CALL  K YBD(2HMS ,11) 

1049  IF( IH< 6 ) . NE . 52525B)  GOTO  9100 

1050  CALL  BCHK ( IBS , IH(5>  > 

1051  C 

1052  C  IF  TRANSDUCER  NUMBER  IS  ZERO  THEN  REPLACE  WITHOUT  CHECK 

1053  C 

1054  IF(N.EQ.O)  GOTO  9025 

1055  IF ( ISER . EQ . 0 . AND . 1H(51 ) . NE . N)  GOTO  9100 

1056  IF < ISER . EQ . 1 . AND . IH( 48 ) . NE . N )  GOTO  9100 

1057  9025  IF ( IK . GE . 75)  GOTO  9030 

1058  IH<IK)»NIH<1) 

1059  GO  TO  9040 

1060  9030  I J*< IK-73)/2 

1061  RH( I J)*CRH< 1 > 

1062  9040  CALL  KYBDC2HMS ,31 , -1 , 1 ) 

1063  CALL  KYBD(2HMS,2i> 

1064  9100  CONTINUE 
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1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 
1081 
1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 
1101 
1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 
1111 
1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 


GO  TO  200 
C 

C  EXIT  BEFORE  COMPLETING  ALL  RECORDS 

C 

9200  IF< I . EQ . IPAR1 )  GOTO  200 
I J=I-i 

WRITEd  ,9210)  IJ,I 

9210  FORMAT </, "RECORDS  THROUGH" , 14 , "  HAVE  BEEN  SEARCHED",/, 

$  "RECORDS  FROM", 14,"  ON  HAVE  NOT  BEEN  ALTERED") 

GO  TO  200 
C 

C  LIST  HEADER  WORD  INFORMATION 

C 

9400  1=9001 

GO  TO  9410 

9401  1=9501 

9410  CALL  IOSW<NU,0> 

IF(NU.EQ.l)  URITE< NU , 5028 > 

WRITE ( NU , 181 0 ) 

WRITE(NU , 1819 ) 

WRITE(NU,9420) 

9420  FORMAT < 12X , " 19 " , 11X , "TRANSDUCER  ORIENTATION") 

WRITE<NU, 1817) 

WR ITE(NU , 9430 ) 

9430  F0RMAT<12X, "47", 11X, "RESPONSE  TRANSDUCER  MODEL  #",/, 

1  12X, "48" ,11X, "RESPONSE  TRANSDUCER  SERIAL  *",/, 

2  12X,"S1",UX," 'RESPONSE  TRANSDUCER  NUMBER") 

WRITE<NU ,1816) 

WR ITE<NU , 9440 ) 

9440  FORMAT < 12X , "79" , 11X , "DATA  CALIBRATION  OR  RECORD  *",/) 

IF ( I . EQ . 950 1 )  GOTO  9501 
GOTO  9001 
C 

C  IK*#*#*##*###!#####****#***#*****###****#***#*******#************* 

c 

C  INTERCHANGE  TRANSDUCER  INFORMATION  (  X  ) 

C 

C  **************************************************************** 

C 

9500  WRITEd, 3030>IPAR1,IPAR2 

3030  FORMAT</, "YOU  ARE  ABOUT  TO  ALTER  RECORDS" , 15 , "  THROUGH", 

1  IS,/ , "IS  THIS  CORRECT  ?  (YES  OR  NO)") 

READd  ,  1017)  IANS 

ZF< IANS . NE . 1HY  )  GOTO  200 

WRITEd,  1015) 

READd, 1017)  IANS 

IF < IANS . EQ . 2HY  )  GOTO  9401 

9501  WRITEd, 8120) 

READd, 8125)  <  IT  <  I ) ,  1  =  1 , 5  > 

IF ( ISSW( 14) . LT . 0 )  GOTO  200 

9505  WRITEd, 8230) 

READd,*)  ND 

IFCND.LT. i.OR .ND.GT.3)  GOTO  9505 
WRITEd, 9506) 

9506  FORMAT (/, "ENTER  NEW  AND  CORRESPONDING  OLD  TRANSDUCER  NUMBERS") 
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1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 
1161 
1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 


C  THIS  TABLE  WILL  INDICATE  WHICH  DATA  WILL  BE  STORED  WHERE 
C  IE :  THE  RECORD  WITH  THE  FIRST  NUMBER  (NEW)  WILL  RECEIVE 

C  THE  DATA  NOW  STORED  IN  THE  RECORD  WITH  THE  SECOND  (OLD) 

C  NUMBER . 

C 

DO  9508  1=1 ,ND 
9508  READd,*)  NX(I),NY(I) 

9518  DO  9513  1=1,5 

9513  I YY ( I ) =-9999 
WR ITE ( 1 , 9514 ) 

9514  FORMAT (/, "ENTER  HEADER  WORD  NUMBERS" , IX, 

1  "TO  BE  INTERCHANGED",/, "(19,47,48  AND/OR  79)  ",3X, 

2  "(TERMINATE  LIST  WITH  A  ZERO)") 

C 

C  THE  ABOVE  STATEMENT  DOES  NOT  INCLUDE  WORD  51  ,  HOWEVER  THE 
C  PROGRAM  ALLOWS  IT  TO  BE  INTERCHANGED  ALSO. 

C  IT  IS  NOT  INCLUDED  BECAUSE  THE  USER  MAY  SIMPLY  COPY  THE 
C  NUMBERS  AND  51  IS  ONE  THAT  SHOULD  NOT  BE  CHANGED  INDISCRIMANTLY 
C 

DO  9515  1=1,5 
READd,*)  IK 
IF(IK.LE.O)  GOTO  9510 
CALL  HDRWD( IK  ,  J ) 

IF ( ISSW( 14 ) . LT . 0 )  GOTO  200 
IF ( J . EQ . 2 )  GOTO  9517 
WRITE ( 1 , 1044 )  IK 
GO  TO  9518 
9517  I YY ( I ) =IK 

9515  CONTINUE 
9510  WRITE d, 9507) 

9507  FORMAT (/, "ENTER  POINT  NUMBERS  WHERE  TRANSDUCER  " ,1X, 

1  "INFORMATION",/, "IS  TO  BE  INTERCHANGED  (TERMINATE  LIST", IX, 

2  "WITH  A  ZERO)") 


1  =  0 

9509  J=-9999 
K=-9999 


READd,*)  J , K 
IF(K.GT.O)  GOTO  9511 
IF(J.LE.O)  GOTO  9520 
1  =  1  +  1 
IXX(I)=J 
GOTO  9509 


9511  M=i 
IF(J.GT.K)  M=-i 

9512  1=1+1 
IXX(I)=J 

IF(J.EQ.K)  GOTO  9509 
J=J+M 

GO  TO  9512 

9520  IF(I.LE.O)  GOTO  200 
WRITE (1,9525) 

952S  FORMAT (/, "LIST  POINT  NUMBERS 
READd,  1017)  IANS 
IF ( IANS . NE . 1HY  )  GOTO  9528 
CALL  IOSW(LU , 0 ) 
WRITE(LU,9S26> 


(YES  OR  NO)") 


A- 183 


I 


I 


PAGE  0022  Y0090  FTN4  COMPILER :  HP24177  (SEPT.  1974) 


1177 

1178 

1179 

1180 
1181 
1182 

1183 

1184 

1185 

1186 
1187 
1 1R8 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 
1201 
1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 
1211 
1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 


9526  FORMAT(/, "POINT  NUMBERS",/) 

DO  9529  J=1,I 

WRITE(LU ,9527)  IXX(J) 

9527  FORMAT (15) 

9529  CONTINUE 
WRITE( 1 ,9521 ) 

9521  FORMAT (/, “ARE  POINTS  CORRECT?  (YES  OR  NO)") 

READ( 1,1017)  IANS 
IF ( IANS . NE . 1HY  >  GOTO  9510 
C 

C  NO  EDIT  OF  POINT  NUMBERS  ALLOWED 

C 

9528  M=IP AR 1 

DO  9590  K J*i  ,  I 

9530  NP=0 
C 

C  FOR  EACH  POINT  SEARCH  FOR  A  NUMBER  OF  RECORDS 

C  EQUAL  TO  THE  NUMBER  OF  DIRECTIONS. 

C 

DO  9550  J=M , IPAR2 

IF ( ISSN ( 14 ) . LT . 0 )  GOTO  9600 

CALL  KYBD(2HMS,31 , J) 

CALL  KYBD ( 2HMS ,11) 

CALL  CHK ID( IT , IC> 

IF(IC.EQ.O)  GOTO  9550 
IF(IH(45) .NE.IXX(KJ))  GOTO  9550 
NP=NP+1 
C 

C  TEST  FOR  TOO  MANY  RECORDS  FOUND  FOR  THIS  POINT 

C 

IF(NP.GT.ND)  GOTO  9552 
IM(NP)=J 

IF(NP.EQ.i)  GOTO  9540 
NP l=NP-i 
C 

C  TEST  TO  SEE  IF  THIS  DIRECTION  HAS  ALREADY  BEEN  FOUND 

C 

DO  9S35  MJ=i , NP 1 
IF(IM(MJ) .NE. J)  GOTO  9535 
NP=NPi 
GO  TO  9557 
9535  CONTINUE 
C 

C  TEST  TO  SEE  IF  ALL  DIRECTIONS  HAVE  BEEN  FOUND 
C 

9540  IF(NP.LT.ND)  GOTO  9550 
GO  TO  9560 
9550  CONTINUE 

I F ( NP . LT . ND . AND . M . EQ . IP AR 1 )  GOTO  9557 

M»IPAR1 

GO  TO  9530 

9552  WR ITE( i ,9553 )  IXX(KJ> 

9553  FORMAT ( / , "POINT  NUMBER  ",  14 , "  HAS  MORE  DIRECTIONS  THAN", IX, 
♦  "SPECIFIED",/, "THIS  POINT  WILL  BE  SKIPPED") 

GO  TO  9590 

9557  WRITE( i ,95S8>  IXX(KJ) ,NP ,ND 
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1233  9558  FORMAT </, "POINT  NUMBER  ",  14 ,/ , 

1234  i  "ONLY", 13,"  OF  THE", 13,"  DIRECTIONS  FOUND",/, 

1235  2  "THIS  POINT  WILL  BE  SKIPPED") 

1236  GO  TO  9590 

1237  9560  M=J 

1238  DO  9561  J=i,ND 

1239  9561  NZ(J)=IM(J) 

1240  DO  9562  J=*i,ND 

1241  CALL  KYBD(2HMS,31,NZ( J)  ) 

1242  CALL  KYBD<2HMS , 11 ) 

1243  K=IH<51 ) 

1244  DO  9563  KK=i,ND 

1245  IF <NX(KK ) .  EQ . K )  GOTO  9564 

1246  9563  CONTINUE 

1247  URITE< 1 ,9567)  IXX(KJ) 

1248  9567  FORMAT< /, "ERROR  IN  TRANSDUCER  NUMBER  FOR  POINT", 14,/, 

1249  *  "THIS  POINT  WILL  BE  SKIPPED") 

1250  GO  TO  9590 

1251  9564  IM (KK ) =NZ ( J ) 

1252  9562  CONTINUE 

1253  CALL  KYBD(2HMS,31 , IM( 1 > ) 

1254  CALL  KYBD(2HMS , 11 ) 

1255  CALL  SORT (IYY<1) ,NIH<1) ,IH(i) ,CRH< 1) ,RH<1>) 

1256  IF< ISSW( 14) . LT . 0 )  GOTO  9600 

1257  DO  9570  J=i,ND 

1258  DO  9566  K=1,ND 

1259  IF(NY(K) . EQ . NIH( 5 ) )  GOTO  9568 

1260  9566  CONTINUE 

1261  9568  CALL  KYBD(2HMS ,31 , IM(K ) ) 

1262  CALL  KYBD( 2HMS , 11 ) 

1263  CALL  BCHK (IBS,IH(5)) 

1264  C 

1265  C  INTERCHANGE  WHAT  IS  IN  CORE  WITH  WHAT  IS  IN  HEADER 

1266  C 

1267  CALL  SORT (IYY(l) ,NIH<1) ,IH<1) ,CRH<1) ,RH(1) > 

1268  CALL  KYBD( 2HMS , 31 , -1 , 1 ) 

1269  CALL  KYBD( 2HMS , 21 ) 

1270  9570  CONTINUE 

1271  9590  CONTINUE 

1272  GOTO  200 

1273  9600  IF(KJ.EQ.l)  GOTO  200 

1274  K=K J-l 

1275  C 

1276  C  IF  EXIT  BEFORE  ALL  POINTS  ARE  DONE  THEN  PRINT 

1277  C  WHICH  HAVE  BEEN  DONE  AND  WHICH  HAVE  NOT. 

1278  C 

1279  WRITE< 1 ,9602)  IXX<K ) , IXX(K J) 

1280  9602  FORMAT(/, "POINTS  THROUGH  NUMBER", 14,"  HAVE  HAD  THE",/, 

1281  1  "TRANSDUCER  INFORMATION  INTERCHANGED.  POINTS  FROM",/, 

1282  2  "NUMBER", 14,"  ON  HAVE  NOT  BEEN  ALTERED") 

1283  GO  TO  200 

1284  C 

1285  C  *************:M*****************t*************************** 

1286  C 

1287  C  FXIT  FROM  Y90 

1288  C 
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1289 

1290 

91 

92 

93 


C 

C 


9995 


CONTINUE 

CALL  KYBD<2HBS,1BSIZE> 


END 


**  NO  ERRORS** 


PROGRAM  *  09865 


COMMON  *  00072 
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1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 


**  NO 


SUBROUTINE  HDRWD<IK,I) 

1*0 

IF ( IK . EQ . 10 . OR , IK . EQ . 24 )  GOTO  10 
IF ( IK . EQ , 26 . OR . IK . EQ , 34)  GOTO  10 
IF( IK . EQ . 36 . OR . IK . EQ , 45)  GOTO  10 
IF ( IK . EQ . 46 . OR , IK . EQ . 49 )  GOTO  10 
IF( IK . EQ . 50 . OR . IK .EQ . 75)  GOTO  10 
IF  < IK . EQ . 77 )  GOTO  10 
IF < IK . EQ . 19 )  GOTO  20 
IF ( IK . EQ . 47 . OR . IK . EQ . 48 )  GOTO  20 
IF ( IK . EQ . 51 . OR . IK . EQ . 79 )  GOTO  20 
RETURN 


10  1  =  1 
RETURN 
20  1=2 


RETURN 

END 


ERRORS**  PROGRAM  *  00143  COMMON  *  00000 
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1314 

C 

1315 

C 

1316 

C 

1317 

SUBROUTINE  SORT ( IYY , NIH, IH , CRH ,RH> 

1318 

DIMENSION  IYY<i),NIH(i>,IH(i> , CRH( 1 >  ,  RH< 1 > 

1319 

DIMENSION  I J<4> 

1320 

DATA  IJ/19, 47, 48,51/ 

1321 

C 

1322 

C 

THIS  SUBROUTINE  TAKES  SPECIFIED  HEADER  INFO  CURRENTLY 

1323 

C 

IN  MEMORY  AND  EXCHANGES  IT  WITH  TEMPORARY  ARRAYS  NIH 

1324 

C 

1325 

DO  10  1=1,5 

1326 

J=IYY ( I > 

1327 

IF(J.LE.O)  GOTO  20 

1328 

IF ( J . GE . 75 )  GOTO  5 

1329 

DO  2  K=i ,4 

1330 

IF ( J . EQ . I J  <K ) )  GOTO  3 

1331 

2 

CONTINUE 

1332 

3 

IT=IH( J) 

1333 

IH( J)=NIH(K ) 

1334 

NIH<K )=IT 

1335 

GO  TO  10 

1336 

5 

J=< J-73)/2 

1337 

T=RH( J) 

1338 

RH(J)=CRH<1) 

1339 

CRH( 1 )=T 

1340 

10 

CONTINUE 

1341 

20 

NIH(5)=IH(51) 

1342 

RETURN 

1343 

END 

**  NO  1 

ERRORS**  PROGRAM  *  00151  COMMON  «  00000 
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1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 
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C 

C 

C 

SUBROUTINE  BCHK < ISYSB , I DATS > 
IF ( ISYSB . EQ . IDATB )  RETURN 
CALL  KYBD(2HBS > IDATB) 
ISYSB=IDATB 

CALL  KYBD(2HMS >31, -1,1) 

CALL  KYBD(2HMS  ,  11 ) 

RETURN 

END 


(SEPT. 


**  NO  ERRORS** 


PROGRAM  *  00039 


COMMON  *  00000 
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1355 


END* 
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0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0  023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 


FTN4 

SUBROUTINE  YO 009 ( IN TOT  .  IP AR ) 

C 

C  THIS  PROGRAM  IS  STORED  UNDER  $Y90? 

C 

C##***##*#*********###****####****#*##************#**##*##>W****#**#**#* 

c 

C  PROGRAMMER;  R . J , ALLEMANG 

C  MAIL  LOCATION  *  72 

C  UNIVERSITY  OF  CINCINNATI 

C  CINCINNATI,  OHIO  45221 

C  513-475-6670 

C 

C  REVISION  DATE:  DEC  17,1979 

C 

C*********************************************************************** 

DIMENSION  IPAR<6) , LINE (36) , LINE 1(35) , IZ < 1 0 > , INQ < 6 > 

1 ,IDIV(i) , ICMMD<  24 ) ,IH(i> ,1X1(1) ,IY1(1) > IDX  < i > ,IDY(1) 
2,ICi<l),IPTCM<i>, LABEL  (20),IPGINT(1> 

EQUIVALENCE  (LINE ( 2 ) , LINE! > 

COMMON  I COMM , MANRE ,MDVA ,BETA , IBLS , IT< 5 ) ,ID<3> ,IP,NUMPT 
1 , NM , ICON , NCOM ,XXX(3,10) , IX ( 3 , 10 ) , IC ( 1 0 ) ,NMP,XR<3> ,A(2,3) 

2,0(3) ,IB(1Q) , NCN (10) ,SF(2) ,XXA(2,3) ,YYA(2,3) 

3 , FSHFT ,DF,MCF,IZR,IL,IPARi, IPAR2 , IPAR3 , IPAR4 , IP AR5 , IPAR6 
4 , I FLAG , NS ,NE,RMM(10) ,FRQ(iO> ,ZETA( 1 0 ) 

EXTERNAL  HDR8 , DTAD0 , NMAX 

DATA  ICMMD/2HD  ,2HV  ,2H%  ,2HEX,2H:  , 

1 2HM  ,2H_  ,2HRO , 2HA- , 2HAM , 

22HCH , 2HSP , 2HX< , 

32HX> ,2HCV,2H(  ,2HB  ,2HL  , 

42HW  , 2HI  , 2HK  ,2HA+,2H/L, 

52H/ . / 

C***********************)M*:l^******************************************* 
C  UNIVERSITY  OF  CINCINNATI/LEUVEN  MODAL  ANALYSIS  PROGRAM 

C 

C  PLOTTING  PROGRAM  TEK  4012 

IBELL=78 
IP AGE=15414B 

CALL  SETAD  <  HDR8 , IH, -8, 0 ) 

ICOMM=0 
IBS=i 024 

CALL  K YBD ( 2HBS , I BS , 0 ) 

CALL  GETI ( NMAX , IBLM) 

ION=IBLM-i 
ICM*ION-l 
I  BM=2 

I=ION*IBS+270 

CALL  SETAD ( DTADO , IPTCM , I , -1 > 

CALL  RWCOM(O) 

C 

C  IF  INITIALIZATION  IS  REQUIRED,  LOAD  Y  91 

C 

IF < I COMM , EQ . 12345 ) GO  TO  900 
CALL  KYBD ( 2HMS , 38 ,-7 , 1 > 

CALL  OVLD( 9 > 

900  CONTINUE 

CALL  SETAD(DTAD0,IX1 ,0,-1)  A  191 


005?  CALL  SET AD (DT ADO ,  IY1 ,256,-1  ) 

0060  CALL  SETAD  <  DTADO , IDX ,512 , -1 > 

0061  CALL  SETAD(DTADO ,IDY, 768,-1) 

0062  CALL  SETAD(DTADO,ICi, 1024,-1) 

0063  CALL  SETAD(DTADO,IDIV, 1536,-1) 

0064  CALL  SETAD(DTADO ,IPQINT, 1600,-i) 

0  06S  NPD=IDIV (21 ) 

0066  IFLG7=0 

0067  MX0FF=IDIU(22) 

0068  MY0FF=IDIV(23> 

0069  MCSIZE=IDI V ( 24  > 

0070  MPi=IDIU(2S> 

0071  MP  2=IDI V ( 26 ) 

0072  1FLG7=IDIV(27) 

0073  IF ( IFLAG .  EQ . 1 ) GO  TO  1130 

0074  C*********************************************************************** 

0075  C  START  OF  MONITOR 

0076  C*********************************************************************** 

0077  1000  WRITE(i,i010> I BELL 

0078  1010  FORMAT <  *' * •*  ,A2) 

0079  I=ISWR ( 1 77677 B ,0,0) 

0080  IP AR i=-9999 

0081  IP AR2=-9999 

0082  IPAR3=-9999 

0083  IPAR4=-9999 

0084  IPAR5=-9999 

0085  IPAR6=-9999 

0086  1020  DO  1030  1=1,36 

0087  1030  LINE  < I ) =2H  ,  , 

0088  1040  CALL  TTYIN(LINE) 

0089  1042  CALL  TEST ( 1 , 1ST , LOG) 

0090  IF  < 1ST . LT . 0 ) GO  TO  1042 

0091  CALL  CODE 

0092  READ (LINE,1120)IL 

0093  IF < ICOMM . EQ , 12345) GO  TO  1115 

0094  C 

0095  C  FUT  A  CHECK  FOR  ANY  COMMANDS  THAT  ARE  NOT  TO  BE 

0096  C  EXECUTED  UNLESS  ENOUGH  SET-UP  IS  PRESENT 

0097  C 

0098  1115  CONTINUE 

0099  1120  FORMAT  <  A2 ) 

0100  CALL  CODE 

0101  READ ( LINE  1 , * > IP AR 1 , IP AR2 , IP AR3 , IP AR4 , IPAR5 , IPAR6 

0102  C****************iM**********;M***************************************** 

0103  C  MONITOR  COMMAND  TABLE 

0104  C****************************M***************************************** 

0105  1130  IFLAG=0 

0106  CALL  RWCOM(i) 

0107  IF(IL.EQ.2H#%)G0  TO  1000 

0108  .'!CMMD=24 

0109  DO  1138  1=1 ,NCMMD 

0110  IF< IL . EQ . ICMMD< I > )GO  TO  1144 

0111  1138  CONTINUE 

0112  1139  URITE<1 ,1140) 

0113  1140  FORMAT(/ , "ERROR - ILLEGAL  COMMAND”) 

0114  GO  TO  1000 

0115  1144  IF< I . GT . 10 )GO  TO  1146 

0116  GOTO  (9004,9004,9004,9004,9004,9004,9004,9004,9004,9004) , I 

0117  1146  1=1-10 

0118  IF( I . GT . 10 )GO  TO  1148  . 


/ 


f 


Oii9 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0  1 38 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 


GO  TO  (9004,9004,9004,9004,9004,9995,8000,2000,9002,9001),! 

1148  1=1-10 

GO  TO  (9001 ,9003,9008,7000  )  , I 
C 

C  ENTER  DATA  TO  SET  Uf>  POINT  LABELING  OF  PLOT 

C 

7000  CONTINUE 

IF ( IPARi .  EQ . -9999) IPARi=i00 
IF(IPAR2.EQ.-9999'IPAR2=10Q 
IF(IPAR3.EQ.-9999)IPAR3=100 
IF ( IPAR4 .EQ . -9999) IP AR 4=1 
IF ( IPAR 5  .  EG! ,  -9999  )  IPAR5=250 
IFLG7=1 
MXOFF=IPAR 1 
MY0FF=IPAR2 
MCSIZE=IPAR3 
MPi=IPAR4 
MP2=IP AR5 
GO  TO  1000 
2000  CONTINUE 

IF ( IPAR . EQ , 37 )GO  TQ  9005 
IF(IPAR .EQ, 10)GO  TQ  9006 

C******************** #***###*#**# ##*#***#**#***#**#*## #**####*#**##*#### 

C  PLOTS  MODE  SHAPES  ON  THE  TEK  4012 

C*********************************************************************** 
8000  CONTINUE 

IF  ( IPAR  1  .  EG! .  37  )  GO  TO  9005 
IF (IPARi .EQ. 10>GO  TO  9006 
I J J=IPAR2 

IF ( IPAR2 . EQ . -9999 ) IPAR2=0 
I TEK  =6B 
DSHTEK=9 . 

XTEK=390 , 

YTEK  =  390  . 

TEKSCL=84 . 0 

IF ( ISSU( 15) , LT . 0 )GO  TO  8008 
WRITE( 1,8009) I PAGE 
8009  FORMAT ( A2 ) 

8008  CONTINUE 

XCENT=XTEK 

YCENT=YTEK 

PSCAL=TEKSCL 

DASH=DSHTEK 

IDEV=ITEK 

CALL  FNDLU(IDEV,LU) 

IF ( LU . EQ . 0)WRITE(1 ,8236)1  BELL 
8236  FORMAT ( / , "ERROR -INVALID  LOGICAL  UNIT”,A2> 

IF ( LU . EQ . 0 ) GO  TO  1000 
IF (NPD . LE . 2)G0  TO  8110 
IF ( NPD . GT . 500 )GO  TO  8110 
C 

C  INITIALIZE 

C 

IF ( IPAR 2 . LE . 0  )  I J  J  =  1 
IF(IPAR2.GT,20)IJJ*=1 
8045  CONTINUE 
C 

C  PLOT  LOOP 

C 

C  SWITCH  12  SOLID  UNDEFORMED  LINES 
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0179 
0180 
0181 
0 1 82 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 


C 

c 
c 

DO  8100  1  =  1  ,NPD 
C 

C  SWITCH  14  TO  ABORT  PLOT 

C 

IF < ISSW (14)  . LT , 0 ) GO  TO  1000 
J  =  IABS( IC1 ( I )  ) 

JGARY=1 

IF(ICKI)  .  LT  .  0  )  JGAR  Y  =  --i 
I JX=FLOAT ( 1X1 ( J ) > /PSCAL+XCENT 
I JY=FLQAT ( IY1 ( J ) ) /PSCAL+YCENT 
IF ( I . EQ . 1 ) IXOLD=I JX 
IF (I .EQ. 1 ) IYOLD=I JY 
JX=IJX+IDX( J)/( IDIV(IJJ)*PSCAL) 

JY=I JY+IDY  (J)/(IDIV< I J J )#PSCAL ) 

IF(IPAR2.NE.0)GO  TO  8050 
C 

C  PLOT  UNDEFORMED  SHAPE 

C 

IF < ISSW< 12) .LT, 0>GO  TO  8060 
C 

C  SET  SWITCH  12  FOR  UNDEFORMED  SOLID  LINES 

C 

IF ( JGARY . EQ . -1 >GO  TO  8060 

CALL  DOT ( IXOLD , IYOLD , I JX , I JY , DASH,LU) 

GO  TO  8062 

8060  WR ITE( LU ) JGARY , 1 , I JX , I JY 
8062  CONTINUE 
IXOLD=I JX 
IYOLD=I JY 
GO  TO  8100 
C 

C  PLOT  MAXIMUM  DEFORMED  SHAPE 

C 

8050  WRITE(LU) JGARY  ,1,JX,JY 
8100  CONTINUE 

IF (IP AR2.LT . 0)IJJ=IJJ+2 

IF( (IPAR2.LT. 0) .AND. (IJJ.LT. 12) )GO  TO  8045 
IFLG7=0 

8108  CONTINUE 
JGARY=-1 

WRITE(LU) JGARY,! ,0 ,30 
WRITE(1,8109)IT ,FRQ( NMP ) 

8109  FORMAT (2X,5A2,4X,F10 .3) 

GO  TO  1000 

8110  CONTINUE 
WRITE( 1,8111) 

8111  FORMATS,  "ERROR-DISPLAY  NOT  PREVIOUSLY  CALCULATED",/) 

GO  TO  1000 

C********************************************************************** 

C  EXIT  TO  OTHER  OVERLAYS 

C***^***#*****#******#**^*****#******************#******************** 

9001  1=1 

GO  TO  9900 

9002  1*2 

GO  TO  9900 

9003  1*3 

GO  TO  9900 


0239 

9004 

1=4 

0240 

GO  TO  9900 

0241 

9005 

1=5 

0242 

GO  TO  9900 

0243 

9006 

1=6 

0244 

GO  TO  9900 

0245 

9008 

1=8 

0246 

GO  TO  9900 

0247 

9900 

CONTINUE 

0248 

IFLAG=1 

0249 

CALL  RWCOM(l) 

0250 

CALL  KYBD  ( 2HMS ,38,1) 

0251 

CALL  OVLD ( 9 ) 

0252 

9995 

CONTINUE 

0253 

1L=2H*# 

0254 

IF (ICOMM.EQ. 12345 )CALL  RUCOM(l) 

0255 

CALL  KYBD(2HBS,IBS,0) 

0256 

RETURN 

0257 

END 

0258 

END* 
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0001 
0002 
0003 
0004 
000S 
0006 
0007 
0  0  08 
0009 
0010 
0011 
0012 
0013 
0014 
001S 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0  025 
0026 
0027 
0028 
0029 
0030 
0031 
0  032 
0  033 
0034 
0035 
0  036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 


C 

C 

C 


SUBROUTINE  Y0009( INTOT , IPAR ) 

THIS  PROGRAM  IS  STORED  UNDER  *Y906 


FTN4 

C 
C 
C 

c*********************************************************************** 

c 

R . J , ALLEMANG 
MAIL  LOCATION  #  72 
UNIVERSITY  OF  CINCINNATI 
CINCINNATI,  OHIO  45221 
513-475-6670 


PROGRAMMER 


REVISION  DATE!  DEC  17,  1979 


C # *** #*##*** *##* ************ ** ********** ** ************ ft* ***** *  IK** ****** * 

DIMENSION  IPAR (6) , LINE (36) , LINEi < 35) , IZ ( 10 ) , INQ< 6 ) 
i,IDIV(l) ,ICMMD< 24) ,IH<1) ,1X1(1), lYl(i) ,IDX(1> ,IDY(i> 

2 , I C 1 < 1 ) , IPTCM(i) , LABEL (20) , IPOINT(i) 

EQUIVALENCE  <LINE(2) , LINEi ) 

COMMON  I COMM , MANRE , MDVA ,BETA , IBLS ,IT(5),ID(3),IP, NUMPT 
1 , NM , ICON , NCOM , XXX (3,10) ,IX(3,10) ,IC(10) , NMP , XR ( 3  > ,A(2,3) 

2,0(3) ,IB<10) ,NCN< 10 ) ,SF(2) ,XXA(2,3) ,YYA(2,3> 

3 , FSHFT , DF , MCF , IZR , IL , IPAR 1 , IPAR2 , IP AR3 , IP AR4 , IP AR5 , IPAR6 
4 , IFLAG , NS , NE , RMM ( 1 0 ) , FRQ (10), ZETA ( 1 0 ) 

EXTERNAL  HDR8 , DTADO , NMAX 

DATA  ICMMD/2HD  ,2HV  ,2H%  ,2HEX,2Hj  , 

12HM  , 2H_  , 2HR0 , 2HA- , 2HAM , 

22HCH , 2HSP , 2HX< , 

32HX  > , 2HCV , 2H(  ,2HB  ,2HL  , 

42HU  , 2HI  , 2HK  ,2HA+,2H/L, 

52H/ . / 

C*******************************«*************************************** 

C  UNIVERSITY  OF  CINCINNATI/LEUVEN  MODAL  ANALYSIS  PROGRAM 

C 

C  PLOTTING  PROGRAM  HP  7210 

C** a******************************************************************** 

IBELL=7B 
IP AGE«15414B 

CALL  SET  AD ( HDR8 , IH , -8 , 0  > 

ICOMM=0 
IBS=1 024 

CALL  K  YBDOHBS,  IBS  ,  0  > 

CALL  GET I (NMAX , IBLM ) 

ION=IBLM-l 
ICM*ION- 1 
IBM*2 

I=ION*IBS+270 

CALL  SETAD( DTADO , IPTCM , I , -1 > 

CALL  RWCOM(O) 


IF  INITIALIZATION  IS  REQUIRED,  LOAD  Y  91 

IF ( I COMM , EQ . 1234S >GQ  TO  900 
CALL  K YBD ( 2HMS , 38 ,-6,1) 

CALL  OVLD< 9 > 

900  CONTINUE 

CALL  SETAD( DTADO , 1X1 , 0 ,-i ) 
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0  059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 


CALL  SETAD (DTADO ,  IYi , 256 , -1 > 

CALL  SET  AD (DTADO ,IDX,512,-i) 

CALL  SETAD<DTADO,IDY, 768,-1) 

CALL  SETAD(DTAD0,IC1, 1024,-i) 

CALL  SETAD ( DTADO , IDIV , 1536 , -1 ) 

CALL  SETAD < DTADO ,IPOINT, 1600 ,-i> 

NPD=IDIV(21 > 

IFLG7=0 

MX0FF*IDIU(22> 

MY0FF=IDIV<23) 

MCSIZE=IDIV<24) 

MP1=IDIV<25> 

MP2*IDI V  <  26 ) 

IFLG7=IDIV  <  27 ) 

IF ( IFLAG . EQ . 1 >G0  TO  1130 

C*********************************************************************** 
C  START  OF  MONITOR 

C*********************************************************************** 
1000  UR ITE(1, 1010)1 BELL 
1010  FORMAT <"*" ,A2> 

I=ISUR ( 1 77677 B, 0,0) 

IPARl=-9999 
IPAR2=-9999 
IP AR3=-9999 
IPAR4=-9999 
IP AR5=-9999 
IP AR6=-9999 
1020  DO  1030  1=1,36 
1030  LINE  < I ) =2H  ,  , 

1040  CALL  TTYIN(LINE) 

1042  CALL  TEST ( 1 , 1ST ,LOG) 

IF < 1ST . LT . 0 ) GO  TO  1042 
CALL  CODE 
READ<LINE,1120)IL 
IF ( I COMM . EQ . 12345 ) GO  TO  1115 
C 

C  PUT  A  CHECK  FOR  ANY  COMMANDS  THAT  ARE  NOT  TO  BE 

C  EXECUTED  UNLESS  ENOUGH  SET-UP  IS  PRESENT 

C 

1115  CONTINUE 
1120  FORMAT ( A2 ) 

CALL  CODE 

READ (LINE! ,*)IPARi,IPAR2,IPAR3,IPAR4,IPAR5,IPAR6 
C***********************M********************************************** 
C  MONITOR  COMMAND  TABLE 

C***************************«************************************«****** 
1130  IFLAG=0 

CALL  RWCOM(l) 

IF(IL.EQ.2H#*)G0  TO  1000 
NCMMD“24 

DO  1138  1=1 ,NCMMD 

IFdL.EQ.  ICMMD(I)  )GO  TO  1144 

1138  CONTINUE 

1139  WRITE< 1 , 1140 ) 

1140  FORMAT(/, "ERROR-ILLEGAL  COMMAND") 

GO  TO  1000 

1144  IF ( I . GT . 10 )GO  TO  1146 

GO  TO  <9004,9004,9004,9004,9004,9004,9004,9004,9004,9004) , I 
1146  1=1-10 

IF ( I . GT , 10 ) GO  TO  1148 
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0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 


GO  TO  <9004,9004,9004,9004,9004,9995,8000,8200,9002,9001),! 

1148  1=1-10 

GO  TO  (9001,9003,9008,7000),! 

C 

C  ENTER  DATA  TO  SET  UP  POINT  LABELING  OF  PLOT 

C 

7000  CONTINUE 

IF ( IPARi . EQ . -9999) IP AR 1=100 

IF ( IPAR2 . EQ . -9999 ) IP AR2=1 00 

IF ( IP AR3 , EQ .-9999)IPAR3=100 

IF ( IPAR4 . EQ . -9999) I PAR 4=1 

IF ( IPAR5 . EQ , -9999 ) IP AR5=250 

IFLG7=1 

MXOFF=IPARi 

MY0FF=IPAR2 

MCSIZE=IPAR3 

MP i=IPAR4 

MP2=IPAR5 

GO  TO  1000 

C*****************************!|^*#**********)|^*t#**)|C*)|^***************** 

C  PLOTS  MODE  SHAPES  ON  THE  HP  7210 

C #* ## #* #### ## * * # * # * ## # *### * ***** # * #*## ***** *************** * 

8000  CONTINUE 

IF < IPARi . EQ . 37)G0  TO  9005 
IF< IPAR 1 . EQ . 6 )GO  TO  9007 
I JJ=IPAR2 

IF  < IP AR2 . EQ . -9999  > I PAR 2=0 

IPLOT-1GB 

XPLOT=5000 . 

YPLQT-5000 . 

DSHPLT-1 0  0 . 

PLTSCL=6 . 56 
8010  CONTINUE 

XCENT -XPLOT 

YCENT-YPLOT 

PSCAL=PLTSCL 

DASH=DSHPLT 

IDEV-IPLOT 

CALL  FNDLU< IDEV ,LU) 

IF ( LU . EQ .0)WRITE<1 ,8236) 

IF <LU . EQ . 0 ) GO  TO  1000 
IF ( NPD . LE . 2 ) GO  TO  8110 
IF (NPD . GT . 500 )GO  TO  8110 
C 

C  INITIALIZE 

C 

IF<IPAR2.LE.0)IJJ=1 

IF(IPAR2.GT.20)IJJ=1 

C 

C  ARRAY  TO  FLAG  POINTS  ALREADY  LABELED 

C 

DO  8038  1-1,250 

8038  IPOINT < I >  =  1 

DO  8040  I-MPi ,MP2 
8040  IPOINT < I >=0 
8045  CONTINUE 
C 

C  PLOT  LOOP 

C 

C  SWITCH  12  SOLID  UNDEFORMED  LINES 
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0179 

C 

SWITCH  13  ABORT  POINT  LABELING 

0180 

C 

SWITCH  14  ABORT  PLOT 

0181 

C 

0182 

DO  8100  1=1 ,NPD 

0183 

C 

0184 

c 

SWITCH  14  TO  ABORT  PLOT 

0185 

c 

0186 

IF ( ISSW< 14 ) . LT , 0 ) GO  TO  1000 

0187 

J=IABS( ICi < I ) ) 

0188 

JGAR Y=i 

0189 

IF ( ICI < I ) .LT. 0) JGARY=-i 

0190 

I JX=FLOAT <IX1(J>) /PSCAL+XCENT 

0191 

I JY=FLOAT (IYKJ)  ) /PSCAL+YCENT 

0192 

IF ( I . EQ . 1 ) IXOLD=I JX 

0193 

IF ( I . EQ . 1 ) I YQLD=I JY 

0194 

JX=IJX+IDX( J)/<IDIV<IJJ)*PSCAL> 

0195 

JY=IJY+IDY< J)/<IDIVCIJJ)*PSCAL> 

0196 

IF< IPAR2.NE. 0>GO  TO  8050 

0197 

c 

0198 

c 

PLOT  UNDEFORMED  SHAPE 

0199 

c 

0200 

IF ( ISSW( 12) .LT.0)GQ  TO  8060 

0201 

c 

0202 

c 

SET  SWITCH  12  FOR  UNDEFORMED  SOLID  LINES 

0203 

c 

0204 

IF < JGAR Y . EQ . -1 ) GO  TO  8060 

0205 

CALL  DOT ( IXOLD , I YOLD , I JX , I JY , DASH , LU > 

0206 

GO  TO  8062 

0207 

8060 

WRITE(LU) JGARY  ,1,IJX,IJY 

0208 

C 

0209 

C 

POINT  LABELING 

0210 

c 

0211 

IF < IFLG7 . EQ . 0 )GO  TO  8062 

0212 

c 

0213 

c 

ABORT  POINT  LABELING  SWITCH 

13 

0214 

c 

0215 

IF ( ISSW ( 13 ) . LT . 0  >GO  TO  8062 

0216 

IF<IPOINT(J) , EQ . 1 ) GO  TO  8062 

0217 

THETA=0 . 0 

0218 

IRAD=20 

0219 

DO  8055  KK  =  1 ,10 

0220 

JXXX=IJX+IRAD*SIN< THETA) 

0221 

JYYY=IJY+IRAD#COS< THETA) 

0222 

THETA=THETA+0 . 628312 

0223 

WRITE(LU) 1,1 , JXXX, JYYY 

0224 

8055 

CONTINUE 

0225 

WRITE(LU)-i ,-i ,MXOFF ,MYOFF 

0226 

WRITE(LU,8065)MCSIZE,0,0,MCSIZE, 

J 

0227 

8068 

CONTINUE 

0228 

WR ITE  <  LU )-l;i,IJX,IJY 

0229 

8065 

FORMAT (415,13) 

0230 

IPOINT ( J ) =1 

0231 

8062 

CONTINUE 

0232 

IXOLD=I JX 

0233 

IYOLD=I JY 

0234 

GO  TO  8100 

0235 

C 

0236 

C 

PLOT  MAXIMUM  DEFORMED  SHAPE 

0237 

C 

0238 

8050 

WRITE(LU) JGARY  ,i,JX,JY  ^ 

I 


1 


t 


023V 

GO  TO  8100 

0240 

8100 

CONTINUE 

024  i 

IF (IPAR2.LT. 0>IJJ=IJJ+2 

0242 

IF< (IPAR2.LT. 0) .AND .< IJJ.LT. 12) >GO  TO  8045 

0243 

IFL.G7=0 

0244 

8108 

CONTINUE 

0245 

C 

0246 

C 

PRINT  TEST  I,D,  AND  MODE  FREQUENCY 

0247 

C 

0248 

IF' ( NMP  ,  EQ  ,  0  ) GO  TO  1000 

0249 

8155 

CONTINUE 

0250 

WR ITE ( LU ) -1 ,1,100,7000 

0251 

UR ITE(LU, 8156) 20 0,0, 0,200, IT 

0252 

8156 

FORMAT ( 4 15 , 5A2 ) 

0253 

UR  I TE(LU)-  1  ,  1,100,6500 

0254 

WRITE(LU ,8157)200 , 0 , 0 , 20 0 , FRQ ( NMP ) 

0255 

8157 

FORMAT  <415, F10 ,3) 

0256 

GO  TO  1000 

0257 

8110 

CONTINUE 

0258 

URITEd  ,8111) 

0259 

Bill 

FORMAK/,  "ERROR-DISPLAY  NOT  PREVIOUSLY  CALCULATED",/) 

0260 

GO  TO  1000 

0261 

C***********************************************************************  ; 

0262 

C 

CODE  LABELS  MODE  SHAPE  PLOTS  t 

0263 

C***********************************************************************  ! 

0264 

8200 

CONTINUE  ; 

0265 

IF(IPAR1 ,EQ,37)G0  TO  9005 

0266 

IDEV=i 0B 

0267 

CALL  FNDLU < IDEV , LU > 

0268 

IF (LU.EQ.0) URITEd  ,8236) 

0269 

IF ( LU . EQ . 0 ) GO  TO  1000 

0270 

IF < IPAR4 . NE . -9999 ) GO  TO  8210 

0271 

IPAR4=200 

0272 

IF ( IP AR3 . NE . -9999 ) GO  TO  8210 

0273 

IP AR3=70  0 . 0 

0274 

IF ( IP AR2 . NE . -9999 ) GO  TO  8210 

0275 

IP AR2=3SG . 0 

0276 

C 

0277 

C 

IPAR1  =  DEVICE  THAT  THE  LABEL  IS  TO  BE  PRINTED  ON 

0278 

C 

IPAR2  =  STARTING  X  POSITION  OF  LABEL 

0279 

C 

IPAR3  *  STARTING  Y  POSITION  OF  LABEL 

0280 

C 

IPAR4  =  SIZE  OF  CHARACTERS< IPAR4  X  IPAR4) 

0281 

C 

0282 

8210 

CONTINUE 

0283 

IPAR2=IPAR2*10 

0284 

I PAR 3=1 PAR 3# 10 

0285 

URITEd  U)-l ,i,IPAR2,IPAR3 

0286 

DO  8226  1=1,20 

0287 

8226 

LABEL  < I ) =2H 

0288 

URITEd  .  8230  )  IBELL 

0289 

8230 

FORMAT </, "ENTER  LABEL A2 ,/ ) 

0290 

READ (1,8235) ( LABEL ( I) ,1=1 ,20) 

0291 

CALL  TEST <  1 ,  ISTAT  ,LOGX  )  jl 

0292 

LOGX* ( LOGX+1 ) /2  9 

0293 

8235 

FORMAT ( 20A2 )  I 

0294 

IF(LABELd)  .  EQ.2H/  )GO  TO  1000  I 

0295 

8236 

FORMAT ( / , "ERROR -INVALID  LOGICAL  UNIT  ")  1 

0296 

WRITE(LU)-1 , 1 , IPAR2 , IPAR3  1 

0297 

UR ITE (LU, 8240 > IPAR4, 0,0, IPAR4, (LABEL! I >, I«1 , LOGX)  fl 

0298 

8240 

FORMAT (4I5,20A2)  1 

A  _  OAn  n 
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0299 
0300 
030  i 
0302 
0303 
0304 
0305 
0306 
0307 
0308 
0309 
0310 
0311 
0312 
0313 
0314 
0315 
0316 
0317 
0318 
0319 
0320 
0321 
0322 
0323 
0324 
0325 
0326 
0327 
0328 
0329 


IPAR3=IPAR3-IPAR4*i2/i0 
GO  TO  8210 

C********************************************************************** 

C  EXIT  TO  OTHER  OVERLAYS 

C********************************************************************** 

9001  1=1 

GO  TO  9900 

9002  1=2 

GO  TO  9900 

9003  1=3 

GO  TO  9900 

9004  1=4 

GO  TO  9900 

9005  1=5 

GO  TO  9900 

9007  1=7 

GO  TO  9900 

9008  1=8 

GO  TO  9900 
9900  CONTINUE 
IFLAG=1 
CALL  RWCOM(i) 

CALL  K  YBD ( 2HMS ,38,1) 

CALL  OVLD ( 9 ) 

9995  CONTINUE 
IL=2H## 

IF ( I COMM . EQ , 12345 ) CALL  RWCOM(i) 

CALL  KYBD(2HBS,IBS>0) 

RETURN 

END 

ENDS 
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I 
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0001 
0002 
0003 
0004 
0005 
0006 
0007 
0  0  0(3 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0  016 
0017 
0018 
0019 
0  020 
0021 
0022 
0  023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0  032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0  045 
0046 
0  047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0  055 
0056 
0057 
0058 


FTN4 

SUBROUTINE  Y0  0 09 ( INTOT , IP AR ) 

C 

C  THIS  PROGRAM  IS  STORED  UNDER  *Y905 

C 

C# ft#***##*####**###*#*### #*####***#****#¥*******##***#**###****#******#* 

C 

C  PROGRAMMER;  R  .  J  .  A1..LEMANG 

C  MAIL  LOCATION  *  72 

C  UNIVERSITY  OF  CINCINNATI 

C  CINCINNATI ,  OHIO  45221 

C  513-475-6670 

C 

C  REVISION  DATE:  DEC  17,  1979 

C 

DIMENSION  IP AR ( 6 ) , LINE (36) ,LINEi(35) ,IZ(10) ,INQ(6> 

1 , IDIV ( 1 ) , ICMMD ( 24 ) ,IH(1) ,1X1(1) ,IYi(i) , IDX ( 1 ) ,IDY(i) 

2,101(1) , IPTCM ( 1 ) , LABEL (20)  ,IPOINT(l) 

EQUIVALENCE  (LINE(2) ,LINE1 ) 

COMMON  I COMM , MANRE , MDVA ,BETA  > IBLS , IT (5  > ,ID(3) ,IP ,NUMPT 
1 ,NM, ICON ,NCOM ,XXX(3, 10 ) ,IX(3,10),IC(10> ,NMP,XR(3) ,A(2,3) 

2,0(3) , IB (10) , NCN (10) ,SF(2) ,XXA(2,3> ,YYA(2,3) 

3 , FSHFT , DF , MCF , IZR , IL , IP AR 1 , IP ARE , IP AR  3 , IP AR4 , IP AR5 , IP AR6 
4 , I FLAG , NS ,NE ,RMM( 10 ) ,FRQ( 10 ) ,ZETA( 1 0 ) 

EXTERNAL  HDR8 , DTAD0 , NMAX 

DATA  ICMMD/2HD  ,2HV  ,2H%  ,2HEX,2H:  , 

12HM  , 2H_  , 2HR0 , 2HA- , 2HAM , 

22MCH,2HSP ,2HX< , 

32HX)  ,2HC.V,2H<  ,2HB  ,2HL  , 

42HW  , 2HI  , 2HK  ,2HA+,2H/L, 

52H/  ,  / 

C*####**#**###*#*#*#*##*#*#####*##*####**##**#**#***#**##***#***#******* 

C  UNIVERSITY  OF  CINCINNATI/LEUVEN  MODAL  ANALYSIS  PROGRAM 

C 

C  PLOTTING  PROGRAM  HP  9872 

(3  )|(  $  ^  j|^  j|^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  j^r  ^  ^  ^  ^  j^p  ^ 

IPAGE=15414B 

IBELL=7B 

CALL  SET AD ( MDR8 , IH, -8, 0  > 

ICQMM=0 
IBS=1 024 

CALL  KYBD(2HBS,IBS,0) 

CALL  GET I (NMAX, IBLM) 

ION*IBLM-l 

ICM=ION-i 

IBM=2 

I = ION* IBS +270 

CALL  SETAD(DTADO , IPTCM, 1,-1) 

CALL  RWCOM(O) 

C 

C  IF  INITIALIZATION  IS  REQUIRED,  LOAD  Y  91 

C 

IF ( I COMM . EQ , 12345 ) GO  TO  900 
CALL  K YBD ( EMMS , 38 , -5 , 1 > 

CALL  QVLD(9) 

900  CONTINUE 

CALL  SETAD(DTADO , 1X1 , 0 ,-i >  .  „„„ 

A-202 


0059 

CALL  SET AD ( DT ADO ,  I Yi , 256 ,  - 1 ) 

0060 

CALL  SETAD<  DTADO ,IDX,S12,-i) 

0061 

CALL  SETAD(DTAD0,IDY,768, -1) 

0062 

CALL  SETAD< DTADO ,IC1, 1024,-i) 

0063 

CALL  SETAD< DTADO ,IDIV, 1536,-1) 

0064 

CALL  SETAD<DTADO,IPOINT, 1600,-1) 

0065 

NPD=IDIV><21) 

0066 

IFLG7=0 

0067 

MX0FF=IDIU<22> 

0068 

MY0FF=IDIV<23> 

0069 

MCSIZE=IDIV ( 24 ) 

0070 

MP 1=IDIU (  25  > 

0071 

MP2=IDIV ( 26 ) 

0072 

IFLG7=IDI V ( 27 ) 

0073 

IF < IFLAG , EQ . 1 )G0  TO  1130 

0  074 

c*********************************************************************** 

0075 

c 

START  OF  HONITOR 

0076 

c **##**#****#****#*##*##**#***#*#**#**###*##*##**#**##*#**##**##**#***## 

0077 

1000 

WRITE (1,1010) IBELL 

0078 

1010 

FORMAT ( , A2 ) 

0079 

I--ISWR  (  177677B  ,0,0) 

0080 

IP AR i=-9999 

0081 

IPAR2=-9999 

0082 

IP AR3=-9999 

0083 

IP AR4=~9999 

0084 

IP AR5=-9999 

0085 

IP AR6=-9999 

0086 

1020 

DO  1030  1=1,36 

0087 

1030 

LINE  < I ) =2H , , 

0088 

1040 

CALL  TTYIN(LINE) 

0089 

1042 

CALL  TEST (1, 1ST, LOG) 

0090 

IF ( 1ST . LT . 0 ) GO  TO  1042 

0091 

CALL  CODE 

0092 

READ < LINE , 1 120 ) IL 

0093 

IF ( ICOMM . EQ . 12345) GO  TO  1115 

0094 

C 

0095 

C 

PUT  A  CHECK  FOR  ANY  COMMANDS  THAT  ARE  NOT  TO  BE 

0096 

C 

EXECUTED  UNLESS  ENOUGH  SET-UP  IS  PRESENT 

0097 

C 

0098 

1115 

CONTINUE 

0099 

1120 

FORMAT  < A2 ) 

0100 

CALL  CODE 

0101 

READ (LINE!, #) IPAR 1 , IP AR2 , IPAR3 , IPAR4 , IPAR5 , IPAR6 

0102 

c*********************************************************************** 

0103 

c 

MONITOR  COMMAND  TABLE 

0104 

c*************#*******#***************************************»#****#*** 

0105 

1130 

IFLAG*0 

0106 

CALL  RUCOM < 1 ) 

0107 

IF ( IL . EQ . 2H** )GO  TO  1000 

0108 

NCMMD*24 

0109 

DO  1138  I«i ,NCMMD 

0110 

IF< IL . EQ . ICMMD< I ) )GO  TO  1144 

0111 

1138 

CONTINUE 

0112 

1139 

WRITE<1 ,1140) 

0113 

1140 

FORMAT (/, "ERROR-ILLEGAL  COMMAND") 

0114 

CO  TO  1000 

0115 

1144 

IF < I . GT . 10 )GO  TO  1146 

0116 

GO  TO  (9004,9004,9004,9004,9004,9004,9004,9004,9004,9004) ,1 

0117 

1146 

I-I-10 

0118 

IF<I .GT. 10>GO  TO  1148 

/ 


/ 


t 


01.19 

GO  TO  (9004,9004,9004,9004,9004,9995,8000,8200,9002,9001) ,1 

0120 

1148 

1=1-10 

0121 

GO  TO  (9001 ,9003,9008,7000) ,1 

0122 

C 

012.5 

C 

ENTER  DATA  TO  SET  UP  POINT  LABELING  OF  PLOT 

0124 

C 

0125 

7000 

CONTINUE 

0126 

IFdPARi  ,EQ,-9999)IPAR1  =  1Q0 

0127 

IF  (IPAR2  .EQ  . -9999)IPAR2=100 

0128 

IF( IPAR3 . EQ .-9999) I PAR 3=100 

0129 

IF ( IPAR4 , EQ . -9999) IPAR4=i 

0130 

IF ( IP AR5 . EQ . -9999 ) IPAR5=250 

0131 

IFLG7=1 

0132 

HXOFF=IPARi 

0133 

MY0FF=IPAR2 

0134 

MCSIZE=IPAR3 

0135 

HP 1=IPAR4 

0136 

HP2=IPAR5 

0137 

GO  TO  1000 

0138 

C ##*#* #####**** * **#***###*## ####*#* #  ***** ******* ****** # # **#* #*#*## # #* *# # 

0139 

C 

PLOTS  MODE  SHAPES  ON  THE  HP  9872 

0140 

^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  |||  j||  j|^  ^  ^  ^  ||^  ^ 

0141 

8000 

CONTINUE 

0142 

IFdPARi  .EQ.  10)GO  TO  9006 

0143 

IFdPARi  ,EQ.6)G0  TO  9007 

0144 

I JJ=IPAR2 

0145 

IF ( IP AR  2 . EQ . -9999>IPAR2  =  0 

0146 

IPL.T =37B 

0147 

XPLT=5500 , 0 

0148 

YPLT=3500 . 0 

0149 

PLTSKL=9 . 28 

0150 

8020 

CONTINUE 

0151 

XCENT=XPLT 

0152 

YCENT  =  YPLT 

0153 

PSCAL=PLTSKL 

0154 

ICOLOR=l 

0155 

IF ( IPAR3 . NE . -9999) I COLOR = I PAR 3 

0156 

I.DEU*  IPLT 

0157 

C 

0158 

C 

CHECK  TO  FIND  LOGICAL  UNIT 

0159 

C 

0160 

CALL  FNDLU< IDEV ,LU) 

0161 

IF (LU.EQ.0)WRITE( 1,8236) 

0162 

IF ( LU . EQ , 0 ) GO  TO  1000 

0163 

IF (NPD . LE . 2 ) GO  TO  8110 

0164 

IF ( NPD . GT . 500 )GO  TO  8110 

0165 

C 

0166 

C 

INITIALIZE  AND  SELECT  PEN  COLOR 

0167 

C 

0168 

WR ITE ( LU , 8035 ) I COLOR 

0169 

8035 

FORMAT ( "IPO, 0,1 10 00 ,8000 V"PUM/"IW0, 0,11000 ,8000 "/"SP "16/ 

0170 

1 "  L  T  ”  ) 

0171 

IF(IPAR2.LE.0)IJJ=i 

0172 

IF(IPAR2.GT.20)IJJ=1 

0173 

C 

0174 

C 

ARRAY  TO  FLAG  POINTS  ALREADY  LABELED 

0175 

c 

0176 

DO  8038  1*1 , 250 

0177 

8038 

IPOINT  < I )  =  i 

0178 

DO  8040  I-MP1.MP2 

( 


1 


I 


.J 


0179 

8040 

IPOINT  < I >  =  0 

0180 

8045 

CONTINUE 

0181 

C 

0182 

C 

PLOT  LOOP 

0183 

C 

0184 

C 

SWITCH  12 

SOLID 

UNDEFORMED  LINES 

0185 

C 

SWITCH  13 

ABORT 

POINT  LABELING 

0186 

C 

SWITCH  14 

ABORT 

PLOT 

0187 

C 

0188 

DO  8100  1=1, NPD 

0189 

C 

0190 

c 

SWITCH  14  TO 

ABORT 

PLOT 

0191 

c 

0192 

IF ( ISSU ( 14 ) .LT , 

0  )  GO  TO 

1000 

0193 

J=IABS ( ICI ( I ) ) 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 


JGARY=i 

IF ( ICi < I ) . LT . 0 ) JGAR Y=-l 

I JX=FLOAT (IXi(J) > /PSCAL+XCENT 

l JY =FLOAT ( I Y 1 ( J ) ) /PSCAL+YCENT 

IF ( I . EQ . 1 ) IXQLD=I JX 

IF ( I . EQ , 1 ) IYQLD=I JY 

JX=I JX+IDX  <J)/(IDIU(IJJ>  4PSCAL ) 

JY  =  IJY  +  IDY<  J>/<  IDIV<  IJJ)*PSCAL.) 

IF  <  JGAR Y , EQ , - 1 ) WR ITE ( LU , 8075 > 

8075  FORMATC'PU") 

IF< IPAR2 . NE ,  0  >G0  TO  8080 
C 

C  SWITCH  12  ON:  SOLID  LINES 

C 

IF ( ISSW ( 12 ) . GE . 0  > WRITE ( LU ,8072) 

8072  FORMAT  < "LT2 , 1 .0" > 

C 

C  UNDEFORMED  SHAPE 

C 

WR  ITE  ( LU  ,8078  >  I  JX  ,  I  JY 

8070  FORMAT ( "SM. V "P A" , 16 , *  , " , 16/ "PD" / "SM" ) 
IF(IPOINT(J> .EQ. DGO  TO  8100 
IF  < IFLG7 . EQ . 0 ) GO  TO  8100 
C 

C  SWITCH  13  ON:  ABORT  POINT  NUMBER 

C 

IFvISSW(13> .LT , 0 )GO  TO  0100 
WR ITE (LU, 8013 )MXOFF,MYOFF 

8013  FORMAT  (  "PU’VPR  " ,16, "  ,  ",I6/> 

IF(J ,LT. 10)WRITE(LU,8015)J 

IF( ( J.GE. 10) .AND. ( J.LT. 100) 'WRITE(LU,8016)J 
IF< J.GE. 100) WRITE<LU, 8017) J 

8015  FORMAT <  "LB", ID 

8016  FORMAT  < "LB " , 12  > 

8017  FORMAT  < "LB " , 13  > 

WRITE(LU,8430) 

WRITE(LU,8014)IJX, IJY 

8014  FORMAT ( "PU"/ "PA" , 16, " , -,16/ "PD") 

IPOINT ( J  >  =  1 

GO  TO  8100 
8080  CONTINUE 
C 

C  DEFORMED  SHAPE 

C 

WR ITE (LU ,8078) JX,JY 


I  0239 

8100 

CONTINUE 

I  0240 

IF ( IPAR2 . LT . 0 ) I JJ=IJJ>2 

1  0241 

IF<  dPAR2  .  LT  .  0  ) . AND ,<IJJ,LT.12))G0  TO  8045 

K  0242 

IFLG7-Q 

I  0243 

8108 

CONTINUE 

I  0244 

C 

1  0245 

C 

PRINT  TEST  I.D.  AND  MODE  FREQUENCY 

1  0246 

1  0247 

C 

IF (NMP . EQ . 0 )GQ  TO  1000 

1  0248 

WRITE(LU,8i09)IT ,FRQ<NMP ) 

I  0249 

8109 

FORMAT (“PU'VPAIOOO ,7300“/ 

1  0250 

l"LBTEST  "  ,5A2/"  VFiO.3,"  HERTZ*') 

I  0251 

WR ITE  <  LU , 8430 ) 

1  0252 

GO  TO  1000 

I  0253 

8110 

CONTINUE 

I  0254 

WRITEd  ,8111) 

I  0255 

8111 

FORMATC/, "ERROR-DISPLAY  NOT  PREVIOUSLY  CALCULATED",/) 

I  0256 

GO  TO  1000 

i  0257 

c*********************************************************************** 

I  0258 

c 

CODE  LABELS  MODE  SHAPE  PLOTS 

1  0259 

C******************************************)M************¥************** 

1  0260 

8200 

CONTINUE 

1  0261 

IF(IPAR1 . EQ . 10 ) GO  TO  9006 

I  0262 

IDEV=37B 

1  0263 

CALL  FNDLU< IDEV ,LU) 

1  0264 

IF(LU.EQ.0)WRITE(1 ,8236)  | 

I  0265 

1  0266 

C 

IF (LU . EQ . 0 )GQ  TO  1000 

f  0267 

C 

IPARi  *  DEVICE  THAT  THE  LABEL  IS  TO  BE  PRINTED  ON 

1  0268 

C 

IPAR2  *  STARTING  X  POSITION  OF  LABEL 

I  0269 

C 

IPAR3  *  STARTING  Y  POSITION  OF  LABEL 

[  0270 

C 

IPAR4  *  SIZE  OF  CHARACTERSt IPAR4  X  IPAR4) 

[  0271 

C 

0272 

8230 

FORMAT (/ , "ENTER  LABEL ”,A2,/) 

0273 

8235 

FORMAT (20A2 ) 

0274 

8236 

FORMAT</>  "ERROR-INVALID  LOGICAL  UNIT  *') 

i  0275 

8400 

CONTINUE 

0276 

ICOLOR=IP AR4 

0277 

IF(IPAR4.NE.-9999)G0  TO  8410 

0278 

I COLOR = 1 

0279 

IF ( IPAR3 . NE . -9999) GO  TO  8410 

0280 

IPAR3*7300 

0281 

IF( IPAR2 , NE . -9999 ) GO  TO  8410 

0282 

IPAR2=5000 

k  0283 

8410 

CONTINUE 

0284 

WR ITE <LU ,8420  > I COLOR , IPAR2 , IPAR3 

0285 

8420 

FORMAT <  "IPO  ,0,11000  ,8000"/,'PU "/"IWO, 0,11  OOO^OOOVLTV 

0286 

L"SP”I6/“PA" , 16, " , " ,16) 

0287 

8422 

DO  8425  1=1,20 

0288 

842S 

LABEL ( I )=2H 

0289 

WRITE( 1 ,8230 ) I BELL 

0290 

READ! 1,8235) C LABEL < I), 1=1, 20) 

0291 

CALL  TEST < 1 , ISTAT ,LOGX> 

0292 

LOGX*<LOGX+l >/2 

0293 

IF(LABEL(1) .EQ.2H/  >WRITE(LU,843Q> 

0294 

0295 

C 

IF ( LABEL ( 1 ) . EQ , 2H/  )GO  TO  1000 

0296 

C 

CONTROL  C  TO  TERMINATE  HP  9072 

0297 

C 

0298 

8430 

FORMATC")  . 

A- 206 

! 

0299 

WRITE<LU,S440)(LABEL<I) ,I=l,LOGX> 

0300 

8440 

FORMAT ( "LB “ >  20A2 ) 

0301 

URITE(LL)  ,8430 ) 

0302 

GO  TO  8422 

0303 

c********************************************************************** 

0304 

c 

EXIT  TO  OTHER  OVERLAYS 

0305 

C*************************!M******************************************* 

0306 

9001 

1  =  1 

0307 

GO  TO  9900 

0308 

9002 

1*2 

0309 

GO  TO  9900 

0310 

9003 

1=3 

0311 

GO  TO  9900 

0312 

9004 

1=4 

0313 

GO  TO  9900 

0314 

9005 

1*5 

0315 

GO  TO  9900 

0316 

9006 

1*6 

0317 

GO  TO  9900 

0318 

9007 

1=7 

0319 

GO  TO  9900 

0320 

9008 

1*8 

0321 

GO  TO  9900 

0322 

9900 

CONTINUE 

0323 

IFLAG=i 

0324 

CALL  RWCOM(l) 

0325 

CALL  K YBD ( 2HMS , 38 , I ) 

0326 

CALL  OVLD ( 9 ) 

0327 

9995 

CONTINUE 

0328 

IL=2H** 

0329 

IF (ICOMM.EQ. 12345) CALL  RWCOM(l) 

0330 

CALL  K YBD ( 2HBS ,  IBS , 0 ) 

0331 

RETURN 

0332 

END 

0333 

END* 

*Y90i  T=00004  IS  ON  CR00103  USING  00082  BLKS  R=0702 
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0023 

0024 

0025 

0026 

0027 

0028 
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0044 
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0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 


FTN4 

SUBROUTINE  Y0 0 09 < INTOT , IPAR ) 

C 

C  THIS  PROGRAM  IS  STORED  UNDER  *Y90i 

C 

C *****#**#*###***###*#*###**#####**##**#******##*#**#****##*#*##*#*##*** 

C 

C  PROGRAMMER;  R . J . ALLEMANG 

C  MAIL  LOCATION  #  72 

C  UNIVERSITY  OF  CINCINNATI 

C  CINCINNATI,  OHIO  45221 

C  513-475-6670 

C 

C  REVISION  DATE;  DEC  17,1979 

C 

DIMENSION  IP AR ( 6 ) ,LINE ( 36 ) ,LINEi (35 ) , IZ C 10 ) ,INQ(6> 

1 ,IDIV(l),ICMMD(24),IH(l),IXi(i),IYl(l> , IDX< 1 > , IDY < 1 ) 

2 , ICi ( 1 > , IPTCM( 1 ) ,RH< 1 ) 

EQUIVALENCE  ( LINE ( 2 >  , LINE! ) 

COMMON  ICOMM ,MANRE , MDVA, BETA , IBLS ,IT(5> ,  IDO) ,IP,NUMPT 
1 , NM , ICON , NCOM ,XXX(3,10) ,IX(3,10> ,  IC ( 1 0  > , NMP ,XR(3) ,A(2,3) 

2,0(3) ,  IB( 10) , NCN (10) ,SF<2) ,XXA(2,3) ,YYA(2,3> 

3 , FSHFT , DF , MCF ,IZR,IL,IPAR1,IPAR2,IPAR3,IPAR4,IPAR5,IPAR6 
4 , 1  FLAG ,  NS ,  NE  ,  R  MM  ( 1 0  )  ,  FR  Q  ( 1 0  )  ,  7.ET  A  ( 1 0  > 

EXTERNAL  HDR8 , DTAD0 , NMAX 

DATA  ICMMD/2HD  ,2HV  ,2HX  ,2HEX,2H;  , 

12HM  ,2H_  , 2HR 0 , 2HA- , 2H AM , 

22HCH , 2HSP ,2HX< , 

32HX  > , 2HCV , 2H<  ,2HB  ,2HL  , 

42HU  , 2HI  ,2HK  ,2HA+,2H/L, 

52HX  / 

C#********#*****##*******##**#*#*#*#*#**#*####*###*##*****#**#*#*##¥*#** 

C  UNIVERSITY  OF  CINCINNATI/LEUVEN  MODAL  ANALYSIS  PROGRAM 

C 

C  SET-UP  OR  INITIALIZATION  PROGRAM  (KEYBOARD  ENTRIES) 

C*********************************************************************** 

IBELL=7B 

IPAGE=15414B 

CALL  SET  AD ( HDR8 , IH , -8 , 0 ) 

CALL  SETAD(HDR8,RH(i) ,67,0) 

ICOMM=0 
IBS=i 024 

CALL  KYBD(2HBS , IBS , 0 ) 

CALL  GET I (NMAX, IBLM) 

ION=IBLM-l 

ICM*ION-l 

IBM=2 

I=ION*IBS+270 

CALL  SETAD( DTAD0 , IPTCM ,1,-1) 

CALL  RWCOM(O) 

IF ( IFLAG . EQ , 1 )GO  TO  1130 
IF ( I COMM , EQ . 12345) GO  TO  1000 
C 

C  THE  FOLLOWING  VARIABLES  ARE  INITIALIZED  ONLY  THE  FIRST  TIME 

C 


DO  600  1=1 , IBLM 
J-I-l 
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0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0  083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 


CALL  KYBD<2HCL,J) 

600  CONTINUE 
ICON=i 
NM=0 
NUMPT=i 
FSHFT=0 . 0 
NPD=2 
NMP  =  0 
NCOM=0 
IIBS=1024 
IP  =  i 
MDVA*0 
MANRE=0 
BETA=0 . 0 
MCF=0 
IBLS=i 

DO  800  1=1,3 
DO  800  J=i  ,  1 0 
XXX<I,J)=0.0 
IX<i,J)=l 
IX  <  2 , J ) =2 
IX ( 3 , J ) =3 
IC( J)=i 
XR ( I ) =0 . 0 
IB ( J ) =0 
NCN< J)=0 
FRQ( J )=0 . 0 
ZETA(  J)  =  0  .  II 
DO  800  K  =  1 ,2 
XXA(K , I )  =  0 . 0 
YYA( K ,  I  )  =  0 . 0 

800  CONTINUE 
C 

C  SET  UP  DISPLAY  VIEWING  DEFAULT  POSITION  AS  1  1  1 

C 

Ad, i>*0, 70711 
A < 1 , 2 ) =0  .  0 
Ad, 3>=»-0. 70711 
A(2,i)=-0 .408248 
A<2,2)=0 .816497 
A<2,3)*-0. 408248 
O(l>=0 . 

O<2)=0 . 

Q<3)*0 . 

DO  801  1*1,5 

801  IT ( I >*2H 

DO  802  1*1,3 

802  ID< I )*2H 

C  START  OF  MONITOR 

C*******************************************«*«**»********************** 

998  CONTINUE 

WRITEC 1 ,997 ) I PAGE 
997  FORMAT (A2) 

WRITEd  ,999) 

999  FORMAT</, "UNIVERSITY  OF  CINCINNATI/LEUVEN  MODAL  ANALYSIS  SYSTEM",/, 

115X, "VERSIONi  NOVEMBER  1979") 

1000  WRITEd,  1010)IBELL 
1010  FORMAT ( "*" , A2> 

I*ISWR  < 177677B ,0,0) 
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0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

015(3 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0176 


IP AR i=~9999 
IPAR2=-9999 
IPAR3=-9999 


IP AR4=~9999 
IP ARS=-9999 
IP AR6=-9999 
1020  DO  1030  1=1,36 
1030  LINEd  >=2H, , 

1040  CALL  TTYIN(LINE) 

1042  CALL  TEST ( 1 , 1ST , LOG ) 

IF ( 1ST . LT . 0 ) GO  TO  1042 
CALL  CODE 
READ(LINE,1120)IL 
1120  FORMAT < A2 ) 

CALL  CODE 

READ ( LINE1 ,#)IPAR1,IPAR2,IPAR3,IPAR4,IPAR5,IPAR6 
C  MONITOR  COMMAND  TABLE 


1130  IFLAG=0 

CALL  RWCOM(l) 

IF <IL.EQ.2H**)G0  TO  1000 
NCMMD=24 

DO  1138  1=1, NCMMD 

IFdL.EQ,  ICMMD(I)  )GO  TO  1144 

1138  CONTINUE 

1139  WRITE(i,1140) I BELL 

1140  FORMAT (/, "ERROR-ILLEGAL  COMMAND M , A2 ) 

GO  TO  1000 

1144  IF< I , GT . 10 )GO  TO  1146 

GO  TO  <9004,9004,9004,9004,9004,9004,9004,9004,9004,9004) , I 
1146  1=1-10 

IF ( I . GT • 1 0 ) GO  TO  1148 


GO  TO  (9004,9004,6000,6500,9004,9995,1100,1100,9002,1145) , I 
1148  1=1-10 

GO  TO  (1145,9003,9008,9011) , I 
1100  CONTINUE 

IF (IPAR 1 , EQ . 37 >GO  TO  9005 
IFdPARl  .EQ  .  10  )GO  TO  9006 


1145 


IFdPARl  ,EQ.6)G0  TO  9007 
GO  TO  1139 

IFdPARl  .EQ. -9999)  IP  AR1  =  0 
IFdPARl  .EQ.  0)  GO  TO  1152 
IFdPARl, EQ.i)  GO  TO  1260 
IFdPARl. EQ. 2)  GO  TO  1400 


IFdPARl  .EQ. 3)  GO  TO  1460 
IFdPARl  .EQ. 4)  GO  TO  3000 
IFdPARl  .EQ. 5)  GQ  TO  1660 


WR ITE <  1 , 1 140  ) 

GO  TO  1000 

C**************************************************************** 


C  COMMAND  KYBD  0  TEST  ID  AND  SET-UP 

C**************************************************************** 

1152  DO  1153  1=1,5 

1153  IT< I >*2H 

UR ITE ( 1 , 1154) IP AGE , I BELL 

1154  FORMAT (A2,/, -ENTER  TEST  ID-10  CHARACTERS" ,A2) 

READ ( l,1156)(IT(JJJ),JJJ=i,5) 

1156  FORMAT (5A2) 

WRITE< 1 , 1235) (IT(JJJ),JJJ»i,5> 
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0179  CALL  RWCOM(i) 

0180  WRIT£< 1 , 1158) I BELL 

0181  1158  FORMAT </, "ENTER  DATE  -  6  DIGITS(XXXXXX) " ,A2> 

0182  READ(1,1157>ID(1) ,ID<2) ,ID<3> 

0183  1157  FORMAT (3A2> 

0184  WRITEt i , 1159) I BELL 

0185  1159  FORMAT</, “ENTER  NUMBER  OF  TEST  POINTS", A2) 

0186  1161  READ ( 1 ,#) IP 

0187  IF< IP . GT . 250 )  WR ITE < 1 , 1 180 > 

0188  IF  < IP . GT . 250 )GO  TO  1161 

0189  IF (NUMPT . GT . IP  )NUMPT=IP 

0190  C 

0191  C  ALLOW  TWO  BLOCKS  FOR  COMMON  AND  DATA  POINTS 

0192  C  AND  TWO  BLOCKS  FOR  DISPLAY 

0193  C 

0194  XP=3 . 0#  <  FLOAT ( IP ) ) 

0195  IBLS=IBLM-4 

0196  Zl=FLOAT<IBLS*IBS)/XP 

0197  NM=IFIX(Zi) 

0198  IF(NM . GT . 10 )NM=10 

0199  MANRE=NM 

0200  WRITE(i,1160)NM 

0201  1160  FORMAT (/,  "ALLOWABLE  NUMBER  OF  MODES  STORED  PER  SESSION!  **,13) 

0202  1180  FORMAT </, "ERROR-NUMBER  OF  POINTS  EXCEEDS  250") 

0203  1190  CONTINUE 

0204  1197  WRITE(i,1200) I BELL 

0205  1200  FORMAT (/, "ENTER  OPTION  TO  INITIALIZE  THE  DATA  SPACE", 

0206  1/ , 5X , " 0  >  CLEAR  ONLY  THE  EXISTING  MODAL  COEFFICIENTS", 

0207  2/ , 5X , “ 1 )  CLEAR  ALL  EXISTING  SET-UP  FROM  PREVIOUS  TESTS”, 

0208  3/ , SX , "  (GEOMETRY, CONNECTIVITY, MODAL  COEFFICIENTS, ETC .)" , 

0209  4/ ,5X , "2)  RETURN  TO  MONITOR  ", A2 ,/ > 

0210  IC0MM=12345 

0211  READ  < 1 , *  > IZi 

0212  IF ( IZ1 . EG . 0 ) GO  TO  1210 

0213  IF(IZ1 ,EQ.l)GO  TO  1201 

0214  IF ( IZi . EQ . 2 ) GO  TO  1000 

0215  GO  TO  1197 

0216  1201  DO  1188  J  =  i,3 

0217  DO  1188  1=1,10 

0218  XXX(J,I)=0.0 

0219  IX<J,I)=0 

0220  1188  IC(I)=1 

0221  NUMPT=i 

0222  ICON=0 

0223  NCOM=i 

0224  1210  CALL  GETQ(0,INQ) 

0225  INQ(2)=176500B 

0226  INQ ( 3 ) =777776 

0227  RMAX=Q , 

0228  IF(IZi.EQ.O)  IZ2=I0N-2 

0229  IF(IZi.EQ.l)  IZ2=ION 

0230  DO  1220  I*IBM,IZ2 

0231  CALL  KYBD(2HCL , I ) 

0232  1220  CALL  PUTQ(I,INQ) 

0233  DO  1225  1=1,10 

0234  1225  RMM ( I ) =0 , 0 

0235  CALL  RWCOM(l) 

0236  GO  TO  1000 

0237  1235  FORMAT < / , "TEST  ID  IS " , 23X , 5A2 > 

0238  C*********************************************************************** 
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0239  C  COMMAND  KYBD  i  COMPONENT  DESCRIPTION 

0240  C****************)M******************#*******#***********#*t************ 

0241  1260  WR ITE  < 1 , 1270  > IPAGE , IBELL 

0242  1270  FORMAT ! A2 , / ,  "ENTER  i  COMPONENT  NUMBER,  X,  Y,  Z,  IX,  IY,  IZ,  IC", 

0243  1//,SX, "IX,IY,IZ  ARE  THE  NUMBERS  OF  THE  TRANSDUCERS( 1,2,3)", 

0244  2/ , 5X , "IN  THE  GLOBAL  X,Y,Z  DIRECTIONS" ,A2,//) 

0245  1275  DO  1277  1=1,36 

0246  1277  L INE ( I ) =2H , , 

02.47  1280  CALL  TTYIN(L.INE) 

0248  1290  CALL  TEST < 1 , 1ST , LOG > 

0249  IF  < 1ST . LT . 0 ) GO  TO  1290 

0250  CALL  CODE 

0251  1300  READ!LINE,*>  I 

0252  IF<  < I . LT  .  0 )  . OR . ( I . GT . 10 ) >GO  TO  1305 

0253  IF(I.EQ.O) IC0MM=12345 

0254  IF(I.EQ.O)  GO  TO  1000 

0255  IF ( I . GT , NCOM ) NCOM=I 

0256  GO  TO  1307 

0257  1305  WR ITE< 1 , 1306  > 

0258  1306  FORMAT ( / , "ERROR-INVALID  COMPONENT  NUMBER") 

0259  GO  TO  1275 

0260  1307  CONTINUE 

0261  CALL  CODE 

0262  READ (LINE1,#)XXX<1 >1) , XXX (2, 1) , XXX <3, 1)  , 

0263  1IX(1,I) ,IX(2,I) ,IX(3,I>  ,  IC ( I > 

0264  CALL  RWCOM(l) 

0265  GO  TO  1275 

0266  C*********************************************************************** 

0267  C  COMMAND  KYBD  2  POINT  NUMBER  SET-UP 

0268  C*********************************************************************** 

0269  1400  WRITE( 1,1410) IPAGE, IBELL 

0270  1410  F0RMAT(A2,/, "ENTER :  POINT  NUMBER,  X,Y,Z  COORDINATES,  " 

0271  1 "COMPONENT  NUMBER ”,A2) 

0272  C 

0273  C  PHOTOREAD  OPTION  -  COORDINATES 

0274  C 

0275  CALL  IOSW(NU,l) 

0276  IF(NU.EQ.S)  PAUSE.  1 

0277  1420  READ (NU , * ) I , Zi , Z2 ,Z3 , IZ5 

0278  IF ! I , GT  ,  IP )  GO  TO  1425 

0279  IF ! I . EQ . 0  )  IC'.0MM=12345 

0280  IF(I.EQ.O)  GO  TO  1000 

0281  IF < I . LT . 0 ) GO  TO  1425 

0282  I F  <  I  ,  GT  . NUMP  T ) NUMP  T  =  I 

0283  CALL  RWCOR ( I , Zl , Z2 , Z3 , ICM , 0 ) 

0284  IPTCM ( I >  =  IZ5 

0285  CALL  RWCOM(l) 

0286  GO  TO  1420 

0287  1425  WRITE! 1 , 1427) 

0288  1427  FORMAT!/, "ERROR-INVALID  POINT  NUMBER") 

0289  GO  TO  1420 

0290  C*********************************************************************** 

0291  C  COMMAND  KYBD  3  CONNECTIVITY  SET-UP 

0292  C*******:M******************#*************************************t***** 

0293  1460  WR ITE! 1 , 1470 ) 

0294  1470  FORMAT!/, "CONNECTIVITY  MONITOR") 

0295  1480  WRITE! 1,1485) IBELL 

0296  1485  FORMAT! "*C" ,A2> 

0297  IPAR l*-9999 

0298  IPAR2*-9999 
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0299 
0300 
030  i 
0302 
0303 
030-4 
0305 
0306 
0307 
0308 
0309 
0310 
0311 
0312 
0313 
0314 
0315 
0316 
0317 
0318 
0319 
0  320 
0321 
0  322 
0323 
0324 
0325 
0326 
0327 
0328 
0329 
0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 


1490 


C 

C 

C 

1500 


C 

C 

C 

1510 


1515 


CALL  I PUT (IL,IPAR1,1PAR2,IPAR3,IPAR4) 

IF ( IL , EQ . 2HK  )  GO  TO  1510 

IF  < IL , EQ , 2HW  )  GO  TO  1530 

IF ( IL . EQ . 2H/I )  GO  TO  1570 

IF ( IL , EQ , 2H/D )  GO  TO  1610 

IF ( IL , EQ . 2HR  )  GO  TO  1640 

IF ( IL , EQ . 2H#  )  GO  TO  1500 

IF ( IL . EQ . 2H<  )  GO  TO  1655 

IF( IL . EQ . 2H/R )  GO  TO  1656 

WRITE ( 1,1140) 

GO  TO  1480 


COUNTER  COMMAND  -  CONNECTIVITY 

ICQN=IP AR 1 
GO  TO  1480 

KEYBOARD  COMMAND  -  CONNECTIVITY 


IZ2=-9999 
READ(1,*)1Z1,IZ2 
IF ( IZi ,  EQ  ,  0  ) IC0MM=12345 
IF(IZi.EQ.O)  GO  TO  1480 

IF  ( <  IZ2  .  L.E  ,  0  )  ,  AND  .  <  IZ2  .GT  .  -9998) )  GO  TO  1480 
IF< (IZi ,LT. 0) .AND. (IZ2.NE, -9999) )  GO  TO  1515 
GO  TO  1516 
IZ4=IABS< IZI ) 


IF ( ICON .GT,500)WRITE(i , 1535 ) 

IF  < ICON , GT . 50  0 ) GO  TO  1480 

1535  FORMAT</, "ERROR-MAXIMUM  NUMBER  OF  DISPLAY  VECTORS  EXCEEDED") 
ICON=ICON+l 


CALL  RUCQN< ICON ,  IZI , ION ,  0 ) 
INC=1 


IF ( IZ4 . GT . IZ2 ) INC=-i 
IZi=IZ4+INC 

1516  IF ( IZ2 . EQ . -9999 ) IZ2=IZi 

IF<IZ2.LT, IZi)  GO  TO  1521 

C 

C  INCREMENT  POINT  NUMBERS 

C 

DO  1520  I  =  IZi , IZ2 
IF  <  ICON.  GT  .500)  WRITEd  ,1535) 
IF< ICON .GT.500)GQ  TO  1480 
ICON=ICON+l 

1520  CALL  RUCON ( ICON , I , ION , 0 ) 

CALL  RWCOM(i) 

GO  TO  1510 
C 


C  DECREMENT  POINT  NUMBERS 

C 

1521  IZ4=IZi+l 

IZ5=IZ1-IZ2+1 
DO  1522  1=1, IZ5 
IZ4=IZ4-1 


IF  < ICON . GT . 500 )UR ITE< 1 ,1535) 

IF ( ICON . GT . 500 )GO  TO  1480 
ICON=ICON+l 

1522  CALL  RWCON< ICON, IZ4, ION, 0) 

CALL  RUCQM(l) 

“  T°  1510  HU 


I 


t 


0  359 

C 

0360 

C 

PRINT  COMMAND  -  CONNECTIVITY 

0361 

C 

0362 

1530 

IFdPARl  .NE.-9999)  GO  TO  1S40 

0363 

IPARi=i 

0364 

IPAR2=ICON 

0365 

1540 

NU=i 

0366 

IFdPARl  .LT.DGO  TO  1000 

0367 

IF  < IP AR2 . EQ , -9999 )IPAR2=IPAR1 

0368 

IF < IPAR2 . LT . 1 )GO  TO  1000 

0369 

DO  1550  I=IPAR i , IPAR2 

037  0 

IF ( ISSU < 14 ) . LT . 0 ) GO  TO  1562 

0371 

CALL  RWCON(I,IZi,ION,i> 

0372 

1550 

WRITE(NU, 1560)1, IZI 

0373 

1560 

FORMAT (2I6> 

0374 

1562 

CONTINUE 

0375 

GO  TO  1480 

0376 

C 

0377 

C 

INSERT  *  AFTER  '  COMMAND  CONNECTIVITY 

0378 

C 

0379 

1570 

IZ1=IPAR 1+1 

0380 

1580 

READ!! ,*)IZ2 

0381 

IF ( IZ2 . EQ . 0 )  GO  TO  1480 

0382 

IF  dCON.GT.  50  0)  WRITE  (1,1535) 

0383 

IF  < ICON . GT .500  >GQ  TO  1480 

0384 

ICON=ICON+l 

0385 

DO  1590  1=1, ICON 

0386 

IZ4=IC0N-I 

0387 

IZ5=IZ4+1 

0388 

IF( IZ4 , LT . IZ1 )  GO  TO  1600 

0389 

CALL  RWCON (IZ4 , IZ3 , ION , 1 ) 

0390 

1590 

CALL  RWCON ( IZ5 , IZ3 , ION , 0 ) 

0391 

1600 

CALL  RWCON ( IZi , IZ2 , ION , 0 ) 

0392 

IZi=IZl+i 

0393 

GO  TO  1580 

0394 

C 

0395 

C 

DELETE  COMMAND  -  CONNECTIVITY 

0396 

C 

0397 

1610 

IFdPARl  .EQ.-9999)G0  TO  1485 

0398 

IF (IP AR2 . EQ , -9999) IPAR2=IPARi 

0399 

IZ1=IPAR2-IPAR1+1 

0400 

DO  1620  1=1, ICON 

0401 

IZ2=IPAR1+I-1 

0402 

IZ3*IP AR2+I 

0403 

IF<IZ3,GT. ICON)  GO  TO  1630 

0404 

CALL  RWC0N(IZ3,IZ4,I0N, 1) 

0405 

1620 

CALL  RWCON! IZ2 , IZ4 , ION , 0 ) 

0406 

1630 

ICON® ICON- IZi 

0407 

GO  TO  1480 

0408 

C 

0409 

C 

PHOTOREAD  OPTION  -  CONNECTIVITY 

0410 

C 

0411 

1640 

CONTINUE 

0412 

ICON=0 

0413 

CALL  IOSW ( NU , 1 ) 

0414 

IF!NU.NE.8)NU*S 

0415 

READ  (NU,*>  IZI , IZ2 

0416 

DO  1650  I«IZ1,IZ2 

0417 

READ ( NU ,*)IZ3,IZ4 

0418 

IF ! IZ4 . EQ . 0  >GO  TO  1480 

r 


0419  IF ( ICON ,GT.5Q0)WRITE!1 , 1535 ) 

0420  IF ( ICON , GT .500 )GO  TO  1480 

0421  ICON=ICON+l 

0422  1650  CALL  RWCON! 123 , IZ4 , ION , 0 > 

0423  GO  TO  1480 

0424  1655  CONTINUE 

0425  IC0MM=1234S 

0426  CALL  RWCOM(l) 

0427  GO  TO  1000 

0428  C 

0429  C  REPLACE  COMMAND  -  CONNECTIVITY 

0430  C 

0431  1656  CONTINUE 

0432  IZi*IPAR 1 

0433  IF! IZi . GT . ICON) WR ITE( 1 ,1658) 

0434  1658  FORMAT!/, "ERROR-CONNECTIVITY  LINE  NUMBER  TOO  LARGE",//) 

0435  IF! IZI ,  GT  , ICON) GO  TO  1480 

0436  1657  READ !  1 ,  #  > IZ2 

0437  IF ( IZ2 . EQ . 0 ) GO  TO  1480 

0438  CALL  RWCON< IZi , IZ2 , ION , 0 ) 

0439  IZi=IZi+i 

0440  GO  TO  1657 

0441  C*****************#*******!M******************************************** 

0442  C  COMMAND  KYBD  4  FREQUENCIES  AND  DAMPING 

0443  C*********************************************************************** 

0444  3000  CONTINUE 

0445  WRITE! 1 ,3002) IP AGE , I BELL 

0446  3002  F0RMATCA2,/, "ENTER  RECORD  NUMBER  OF  TYPICAL  DATA" ,A2) 

0447  READ( 1 ,#) IREC 

0448  CALL  K YBD < 2HMS , 31 , IREC ) 

0449  CALL  KYBD! 2HMS, 11 ) 

0450  FSHFT=RH< 1 ) 

0451  DF=RH!2) 

0452  C 

0453  C  MCF  =  6  MEANS  THAT  FREQ/DAMP  DATA  HAS  BEEN  MANUALLY  ENTERED 

0454  C 

0455  MCF=6 

0456  WRITE! 1,3005) I BELL 

0457  3005  FORMAT!/, "ENTER :  MODE  NUMBER , FREQUENCY, ZETA!%) " ,/ 

0458  1, "TERMINATE  WITH  MAXIMUM  MODE , ZERO" , A2 ,// > 

0459  3010  CONTINUE 

0460  READ! 1 , * ) IMODE ,F , Z 

0461  IF ! IMODE . EQ . 0 )GO  TO  1000 

0462  IF! F . EQ . 0 . 0  >MANRE=IMODE 

0463  IF ! F . EQ .0.0) GO  TO  1000 

0464  IF ! ! IMODE . LT . i ) . OR , ! IMODE , GT , 10 ) )GO  TO  3400 

0465  FRQ! IMODE  >=F 

0466  ZETA! IMODE  >  *Z 

0467  IB!IMODE)=F#Z/!DF#SQRT!10000 . 0-Z*»2>  > 

0468  NCN! IMODE)*F/DF-FSHFT/DF+i 

0469  GO  TO  3010 

0470  3400  CONTINUE 

0471  WRITE! 1 , 3405) IBELL 

0472  3405  FORMAT !/, "ERROR-INVALID  MODE  NUMBER " ,A2 ,/ ) 

0473  GO  TO  3010 

0474  C*********************************************************************** 

0475  C  COMMAND  KYBD  5  MODAL  COEFFICIENTS 

0476  C******$********$**$*****$******$*************************************** 

0477  1660  WRITE! 1 ,1670) IP AGE, IBELL 

0478  1670  F  I MAT ! A2  ,  "ENTER !  MODE  NUMBER,  POINT  NUMBER,  X,Y,Z  " 
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0479 
0480 
0481 
0482 
0483 
0484 
0485 
0488 
0487 
0488 
0489 
0490 
0491 
0  492 
0493 
0494 
0495 
0496 
0497 
0498 
0499 
0500 
0501 
0502 
0503 
0504 
0505 
0506 
0507 
0508 
0509 
0510 
0511 
0512 
0513 
0514 
0515 
0516 
0517 
0518 
0519 
0520 
0521 
0522 
0523 
0524 
0525 
0526 
0527 
0528 
0529 
0530 
0531 
0532 
0533 
0534 
0535 
0536 
0537 
0538 


1 "DEFORMATIONS,  X,Y,Z  PHASE  ANGLES", 

2/, 5X, "(DEFORMATIONS  =  +  OR  -  MAGNITUDE)", 

3/, 5X, "(PHASE  ANGLES  =  0  TO  180  DEGREES) ",/, A2 ) 

C 

C  PHOTOREAD  OPTION  -  MODAL  COEFFICIENTS 

C 

CALL  IGSU ( NU , 1 ) 

IF(NU.EQ.S)  PAUSE  2 

1680  READ (NU , #  >M , I , Zi , Z2 , Z3 ,L01 , L02 , L03 
IF ( M . LE . 0  >GQ  TO  1000 
RMAX=RMM(M> 

CALL  RWCMC( 1 ,Z1 ,LOi ,M , I , IP , IBM ,RMAX , 0 ) 

CALL  RWCMC (2 , Z2 ,L02  ,M , I , IP , IBM ,RMAX , 0  ) 

CALL  RWCMC ( 3 , Z3 , L03 , M , I , IP , IBM,RMAX,0 ) 

RMM(M)=RMAX 
GO  TO  1680 
C 

C  STORE  AND  READ  SET-UP  AND  MODAL  DATA  TO  AND  FROM  DISC 

C 

C  READ 

C 

6000  CALL  KYBD ( 2HMS  >35,1) 

CALL  KYBD ( 2HMS , 25 ) 

IF( IPARi . EQ . -9999>GQ  TO  9011 

IF( (IPAR1 .GE.0) .AND, ( IPAR1 . LE . 800 ) )  CALL  KYBD ( 2HMS , 31 , IP AR 1 ) 
IF((IPARi.LT.O) .OR. (IPARI. GT.B00))GQ  TO  6800 
CALL  KYBD ( 2HMS ,11,0) 

CALL  K YBD( 2HMS ,31, -1,1) 

CALL  RWCOM(-i) 

IF ( ICOMM. NE . 12345)G0  TO  6800 
CALL  K YBD( 2HMS ,11, ION > 

CALL  RWCOM(O) 

IF< ICOMM. NE. 12345)G0  TO  6800 
NMP  =  G 
IR J=ICM 

CALL  K YBD(2HMS , 1 1 , IR J > 

IR J=IR J-i 

6100  DO  6200  I=IBM , IR J  1 

6200  CALL  KYBD( 2HMS ,11,1) 

CALL  K YBD ( 2HMS ,35,1 ) 

CALL  KYBD(2HMS , 15) 

IC0MM=12345 

WRITE(1,1235)(IT(I> ,1=1,5)  | 

GO  TO  1000 
C 

C  STORE 

C 

6500  CALL  K YBD< 2HMS ,35,1) 

CALL  KYBD(2HMS,25) 

IF ( IPARI .EQ . -9999 ) GO  TO  9011 

IF( ( IPARI .GE.0) .AND, ( IPAR 1 . LE . 800 >) CALL  K YBD< 2HMS , 31 , IP AR 1 > 

IFUIPARi.LT.O).  OR.  (IPARI.  GT.800))GO  TO  6800 

IL=2H** 

CALL  RUCOM(l) 

IH<  6  >  =52525B 
IH(9)«10 
IH( 10 )“IT( 1 ) 

IH<ii)-IT(2> 

IH(12)=IT(3) 

IH(13)«IT(4> 
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0539 

IH< 14)=IT (5) 

0540 

IH<34)=2H71 

0541 

CALL  K  YBD  ( 2HMS ,  21 , ION ) 

0542 

CALL  KYBD(2HMS,2i ,ICM) 

0543 

IH<  34>=2H72 

0544 

IR J=ICM-1 

0545 

IPARi=IPARl+2 

0546 

DO  6700  I=IBM,IRJ 

0547 

IPAR1=IPAR1 +1 

0548 

6700 

CALL  KYBD<2HMS,2i , I ) 

0549 

WR ITE< 1 ,670 1 > IPAR1 

0550 

6701 

FORMAT</, "NEXT  DATA  RECORD  IS  “,I4) 

0551 

CALL  KYBD(2HMS ,35 , 1 ) 

0552 

CALL  K YBD< 2HMS , 15 ) 

0553 

GO  TO  1000 

0554 

6800 

WRITE (1,6801) 

0555 

6801 

FORMAT ( / , “ERR OR -INVALID  DATA  RECORD") 

0556 

NMP  =  0 

0557 

I COMM* 12345 

0558 

GO  TO  1000 

0559 

0  ^  ^  ^  ^  ^  ^  ^  3j(  )f[  )j(  ]|(  ]|C  *  )|(  )|(  ]|(  ^X  ]|(  )j(  )|C  )|(  lj(  )(l  )|(  )|l  ]^( ))( )jl  )|(  *  ]^(  )|t  )|(  )|c  )|(  )|(  )|(  *  3^C  )|(  x  ^  X  ^  ^  )|t  )|(  3^  )|t  3|(  3j( )(( )|(  ]^C  )|C  )|( 

0560 

c 

EXIT  TO  OTHER  OVERLAYS 

0561 

c  *  ##  **  *  #*#*##*#*#  *  #  ##  ##*  ##  **  He  *  *  *  *****  ****  *  *  *  ****  ***  *  **  *#*  #  *  *#  *  **  *  **  **  #  * 

0562 

9002 

1=2 

0563 

GO  TO  9900 

0564 

9003 

1=3 

0565 

GO  TO  9900 

0566 

9004 

1=4 

0567 

GO  TO  9900 

0568 

9005 

1=5 

0569 

GO  TO  9900 

0570 

9006 

1=6 

0571 

GO  TO  9900 

0572 

9007 

1=7 

0573 

GO  TO  9900 

0574 

9008 

1=8 

0575 

GO  TO  9900 

0576 

9011 

1  =  11 

0577 

GO  TO  9900 

0578 

9900 

CONTINUE 

0579 

IFLAG*! 

0580 

CALL  RWCOM(l) 

0581 

CALL  K YBD<  2HMS ,38,1) 

0582 

CALL  OVLD ( 9 ) 

0583 

9995 

CONTINUE 

0584 

IL=2H*# 

0585 

IF (ICOMM.EQ. 12345) CALL  RWCOM(l) 

0586 

CALL  K YBD( 2HBS , IBS , 0 ) 

0587 

RETURN 

0588 

END 

0589 

END* 
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*Y902.  T  =  0 0 0 0 4  IS  ON  CR00103  USING  00082  BLKS  R*0702 


0001  FTN4 

0002  SUBROUTINE  Y0009( INTGT , IPAR > 

0  0  03  C 

0004  C  THIS  PROGRAM  IS  STORED  UNDER  *Y902 

0  0  05  C 

0006  C# ***#***#*¥******#*****##***#*#*#****##*#**#*### *##**#*********###*#*#* 

0007  C 

0008  C  PROGRAMMER;  R . J . ALLEMANG 

0009  C  MAIL  LOCATION  *  72 

0010  C  UNIVERSITY  OF  CINCINNATI 

0011  C  CINCINNATI,  OHIO  45221 

0012  C  513-475-6670 

0013  C 

0014  C  REVISION  DATE;  DEC  17,1979 

0015  C 


0  017 
0  018 
0  019 
0020 
1)021 
0  028 
0  023 
0024 
0025 
0  026 
0027 
0028 
0  029 
0030 
0031 
0032 
0033 
0034 
0035 
0  036 
(1037 
0  038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0  051 
0052 
0  053 
0054 
0055 
0056 
0057 
0058 


DIMENSION  IPAR ( 6 ) , LINE (36) , LINEi ( 35 ) , 12 ( 1 0 ) , INQ ( 6 ) 

1 ,IDIV(i) , ICMMD ( 24 ) , IH< 1 ) , 1X1 < 1 ) , IY1 ( 1 ) , IDX< 1 > ,IDY(i) 

2 , 1 C 1  <  1 ) , IPTCM ( 1 ) 

EQUIVALENCE  <LIN£<2> ,LINE1 > 

COMMON  ICOMM ,MANRE  >MDVA, BETA , IBLS , IT< 5 > , ID(3> , IP ,NUMPT 
1 ,NM,ICDN,NCOM,XXX(3,10) , IX(3 , 10 > , IC ( 10 ) , NMP , XR < 3 ) , A ( 2 , 3 ) 

2,0(3) , IB< 10 ) , NCN (10), SF  <  2 ) , XXA ( 2 , 3 ) , Y YA( 2 , 3 ) 

3  ,  F  SHFT  ,  DF  ,  MCF  ,  IZR  ,  IL. ,  IP  AR  1  ,  IPAR2 ,  IP  AR3  ,  IPAR4 ,  IP  AR5  ,  IPAR  6 
4 , I FLAG , NS , NE , RMM ( 10  > ,FRQ( 10 ) ,2ETA(10) 

EXTERNAL  HDR8 , DTAD0 , NMAX 

DATA  ICMMD/2HD  ,2HV  ,2H%  ,2HEX,2H;  , 

12HM  , 2H_  , 2HR 0 , 2H A- , 2HAM , 

22HCH , 2HSP , 2HX  < , 

32HX  > , 2HCV , 2H<  , 2HB  ,2HL  , 

42HW  , 2HI  , 2HK  ,2HA+,2H/L, 

52HX  / 

C*****************************************  **********  ******************** 

C  UNIVERSITY  OF  CINCINNATI/LEUVEN  MODAL  ANALYSIS  PROGRAM 

C 

C  OUTPUT  PROGRAM  (PRINT  COMMAND) 

IBELL=7B 
IP AGE=15414B 

CALL  SETAD ( HDR8 ,IH,-8,0) 

ICQMM=0 

IBS=1024 

CALL  KYBD(2HBS, IBS, 0 ) 

CALL  GETI ( NMAX , IBLM) 

ION=IBLM-i 

ICM=ION-i 

IBM*2 

I=ION*IBS+270 

CALL  SETAD<DTAD0, IPTCM, 1,-1) 

CALL  RWCOM(O) 

IF < ICOMM . EQ . 12345 ) GO  TO  900 
CALL  K  YBD ( 2HMS , 38 ,-2,1) 

CALL  0VLD(9 ) 

900  CONTINUE 

IF ( IFLAG . EQ . 1 >GO  TO  1130 

C*********************************************************************** 

C  START  OF  MONITOR 

C********************************»************************************** 
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0059 
0060 
0061 
0  062 
0063 
0064 
0065 
0066 
0067 
0  068 
0069 
0  070 
0071 
0  072 
0073 
0074 
0075 
0  076 
0077 
0078 
0079 
0080 
0081 
0082 


1000  WRITE (1,1010) I BELL 
1010  FORMAT ( "#" , A2) 

I=ISWR( 1776778, 0,0) 

IPARi=-9999 
IP AR2=~9999 
IPAR3=-9999 
IPAR4=-9999 
IPAR5=-9999 
IPAR6=-9999 
1020  DO  1030  1=1,36 
1030  LINE < I ) =2H  ,  , 

1040  CALL  TTYIN(LINE) 

1042  CALL  TEST ( 1 , 1ST ,LOG ) 

IF ( 1ST . LT . 0 )GO  TO  1042 
CALL  CODE 
READ ( LINE , 1 120 ) IL 
1120  FORMAT <A2) 

CALL  CODE 

READ(LINE1 , *) IPAR 1 , IP AR2 , IP AR3 , IP AR4 , IP AR5 , IP AR6 
C*********************************************************************** 
C  MONITOR  COMMAND  TABLE 

C  #  *  *  *  *  *  *  *  #  *  *  *  He  *  *  *  #  #  #  lie  #  *  *  #  *  *  #  4c  #  *  *  #  *  *  #  * *  *  *  *  *  ***  *  *  #  *  *  *#  #  *  *  *  *  #*  *  *  *  *  #  #  #  *  4  *  *  #  4 

1130  IFLAG=0 

CALL  RWCOM(i) 


0083 

0084 

0085 

0086 

0087 

0088 

0009 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

Dili 

0112 

0113 

0114 

0115 

0116 

0117 

0118 


IF ( IL . EQ , 2H**)GQ  TO  1000 
NCMMD=24 

DO  1138  1=1 , NCMMD 

IF(IL.EQ. ICMMD(I) )GO  TO  1144 

1138  CONTINUE 

1139  WR ITE < 1 , 1 140 ) 

1140  FORMAT(/, "ERROR -ILLEGAL  COMMAND") 

GO  TO  1000 

1144  IF< I .  GT . 10 )GO  TO  1146 

GO  TO  (9004,9004,9004,9004,9004,9004,9004,9004,9004,9004) , I 
1146  1=1-10 

IF(I .GT. 10)GO  TO  1148 

GO  TO  (9004,9004,6000,6500,9004,9995,1100,1100,1142,9001),! 
1148  1=1-10 

GO  TO  (9001, 9003, 9008, 9011), I 
1100  CONTINUE 

IF ( IPARi . EQ . 37 )GO  TO  9005 
IFdPARi  .EQ.  10)GO  TO  9006 
IF( IPARI . EQ. 6)G0  TO  9007 
GO  TO  1139 
C 

C  PRINTER  COMMAND  TABLE 

C 

C  PRINT  COMMAND  DEFAULTS  TO  SET-UP  FILE 


1142  IF ( IPARI . EQ . -9999) IPAR 1=0 
IFdPARi. EQ.0)GO  TO  1250 
IFdPARi  .EQ.  1)  GO  TO  1310 
IFdPARi  .EQ. 2)  GO  TO  1430 
IFdPARi  .EQ. 3)  GO  TO  1525 
IFdPARi  .EQ. 4)  GO  TO  1690 
IFdPARi  .EQ. 5)  GO  TO  1695 
WR ITE( 1,1140) 

GO  TO  1000 

C*********************************************************************** 
C  COMMAND  PRINT  0  TEST  ID  AND  SET-UP 
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0119  C  #  #  #*#*  *  ##  *  **********  ##  ####  ##  *  *#  *##*#####*  **  *  *****************  41***  ****  ** 

0120  C 

0121  C  PRINT-OUT  FOR  K  YBD  0 

0122  C 

0123  1250  CONTINUE 

0124  CALL  IOSW(NU,0) 

0125  WRITE! NU  ,  1235)  ( IT  ( ,T J  J  )  ,JJJ=i  ,5) 

0126  1235  FORMAT!/, "TEST  ID  IS",23X,5A2> 

0127  WRITE<NU,125i>ID!l>  ,ID(2>  ,ID(3> 

0120  1251  FORMAT! "DATE  IS",26X,3(  A2,iX),/> 

0129  WR I T E ( NU , 1 252 ) I P , NM 

0130  1252  FORMAT! "NUMBER  OF  POINTS  IS" , 20X , 13 , / , 

0131  1 "NUMBER  OF  MODES  IS“,22X,I2> 

0132  GO  TO  1000 

0133  C*********************************************************************** 

0134  C  COMMAND  PRINT  1  COMPONENT  DESCRIPTION 

0135  C************************* ********************************************** 

0136  C 

0137  C  PRINT  COMMAND  -  COMPONENTS 

0138  C 

0139  1310  IZ1-IPAR2 

0140  IZ2=IP AR3 

0141  IF ! IP AR2 . EQ , -9999 )  IZ1  =  1 

0142  IF(IPAR2.EQ,~9999)  IZ2=NC0M 

0143  IF'  (  ( I  PAR  2  .  NE  .  -9999  )  .AND,  ( IPAR3 . EQ . -9999 > > IZ2=IZ1 

0144  IF ( ( IZ1 . LE . 0 ) .OR , < IZi . GT . NCOM ) ) IZi=i 

0145  IF< ( IZ2.LE, 0) .OR . ( 122 . GT . NCOM ) ) IZ2=NCOM 

0146  CALL  IOSW  <  NU , 0 ) 

0147  DO  1320  I=IZi > IZ2 

0148  1320  WRITE ( NU , 1330 ) I , XXX (1,1) ,XXX(2,I> ,XXX(3,I) , IX ( 1 , I ) , IX(2 , I ) 

0149  1 , 1 X !  3 , 1 )  ,  I C  ( I ) 

0150  1330  F0RMAT(2X, 12, 2X,3F11 .4,416) 

0151  GO  TO  1000 

0152  C *********************************************************************** 

0153  C  COMMAND  PRINT  2  POINT  NUMBER  SET-UP 

0154  C*********************************************************************** 

0155  C 

0156  C  PUNCH/PR  IN r  OPTION  -  COORDINATES 

0 1S7  C 

0158  1430  CONTINUE 

0159  CALL  IOSW ( NU , 0 ) 

0160  IR=0 

0161  IZ1=IPAR2 

0162  IZ2=IPAR3 

0163  IF ( IPAR2 , EQ . -9999 ) IZ2=NUMPT 

0164  IF ( IP AR2 , EQ . -9999  > IZ1  =  1 

0165  IF  <  < IPAR2 . NE . -9999 ) .AND. ( IP AR3 . EQ . -9999) > IZ2=IPAR2 

0166  IF< (IZI .LE.0) .OR . <IZ1 . GT  IP))IZi=i 

0167  IF ( ( IZ2 . LE . 0 ) .0R.(IZ2.GT . IP ) ) IZ2=NUMPT 

0168  IF< (NU.EQ. i) .OR . ( NU , EQ . 6 ) > WR ITE (NU , 1432 > ( IT ( I ) , I»i ,5) 

0169  1432  FORMAT! "TEST  I.D,  ”,5A2, 

0170  *2/ , "POINT" , 10X , "X" , 11X , "Y “ , 11X , "Z" ,5X , "COMPONENT" ,/ > 

0171  DO  1440  I=IZi , IZ2 

0172  IF(ISSW(14) ,LT.0)GO  TO  1000 

0173  CALL  RWC.OR  (I  ,  Z1  ,Z2,Z3,ICM,l> 

0174  IZ5*IPTCM(I) 

0175  IF ( NU . EQ . 8 >GO  TO  1434 

0176  IF (NU . EQ . 4 )GO  TO  1434 

0177  IR-IR+1 

0178  IF(IR,GT .54) WRITE! NU , 1 432 )!IT(IJ),IJ*1,5> 
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0179  IF ( IR . GT , 54 ) IR  =  Q 

0180  1434  CONTINUE 

0181  1440  WRITE(NU, 1480)1,21,22,23,125 

0182  1=0 

0183  IF< (NU.NE.4) .OR . (NU.NE.8) >GO  TO  1000 

0184  UR ITE(NU, 1450) I ,121,22,23,125 

0185  1450  FORMAT < 15 , IX , 3< 2X ,F1 0 .2) ,1X,I5) 

0186  IF ( NU . NE . 8 ) GO  TO  1000 

0187  END  FILE  NU 

0188  GO  TO  1000 

0189  C*************^********^*********************************************** 

0190  C  COMMAND  PRINT  3  CONNECTIVITY  SET-UP 

0191  C#*#*******##***#»##**#*****##**##****##*##*#***##*#*#*#**##**##******#* 

0192  C 

0193  C  PRINT  COMMAND  -  CONNECTIVITY 

0194  C 

0195  1525  IPAR1=IPAR2 

0196  IPAR2=IPAR3 

0197  1530  IF( IPARi . NE , -9999)  GO  TO  1540 

0198  IPAR1=1 

0199  IP AR2=IC0N 

0200  1540  CALL  IOSW(NU,0) 

0201  C 

0202  C  PUNCH  OPTION  CONNECTIVITY 

0203  C 

0204  IF < IP AR 1 . LT . 1 ) GO  TO  1139 

0205  IFTIPAR2.EQ. -9999 ) I PAR 2= I PAR  1 

0206  IF ( IP AR2 . LT , 1 ) GO  TO  1139 

0207  IF( (NU.EQ. 1) .OR . (NU.EQ.6) >GO  TO  1545 

0208  WR ITE ( NU , 1560 ) IPAR 1 , IPAR2 

0209  1545  CONTINUE 

0210  DO  1550  I=IPAR 1 , IP AR2 

0211  IF< ISSW( 14) . LT ■ 0 )GO  TO  1562 

0212  CALL  RWCON( I, 121,1 ON, 1) 

0213  1550  URITE(NU, 1560)1, 121 

0214  1560  FORMAT  <  216 ) 

0215  IF ( NU . NE . 8 ) GO  TO  1562 

0216  END  FILE  NU 

0217  1562  CONTINUE 

0218  GO  TO  1000 

0219  C*********************************************************************** 

0220  C  COMMAND  PRINT  4  FREQUENCIES  AND  DAMPING 

0221  C*********************************************************************** 

0222  1690  CONTINUE 

0223  CALL  IOSW(NU,0) 

0224  IF< (NU.EQ. 1) .OR. ( NU . EQ . 6 > ) WR ITE ( NU , 200 0 ) 

0225  2000  FORMAT</, "MODE  CHANNEL  BANDWIDTH  FREQUENCY  2ETA<Z)" 

0226  1,"  METHOD  MODE",/) 

0227  DO  1692  1=1 ,MANRE 

0228  J=MCF 

0229  IF ( I . GT . NM )  J=Q 

0230  WR ITE<  NU ,1693)1, NCN ( I ) , IB ( I ) ,FRQ< I ) ,ZETA< I ) , J , I 

0231  IF ( I . EQ , NM)WRITE(NU ,1696) 

0232  1696  FORMAT <"  ") 

0233  1692  CONTINUE 

0234  1693  FORMAT <I3,3X,I5,6X,I3,4X,F10.3,2X,F10.7,4X,I3, 4X , 13 ) 

0235  IF < NU . NE . 8 ) GO  TO  1000 

0236  END  FILE  NU 

0237  GO  TO  1000 

0238  C********************************************************************** 
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0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0  248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0  270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 
0280 
0281 
0282 
0283 
0284 
0285 
0286 
0287 
0288 
0289 
0290 
0291 
0292 
0293 
0294 
0295 
0296 
0297 
0298 


C  COMMAND  PRINT  5  PRINT  OF  MODAL  COEFFICIENTS 

C*******************************¥*************************************** 

1695  CONTINUE 
IZi=IPAR2 

IF ( IZi . GT ■ NM ) IZ1=1 
I=IPAR3 
IZ2=IP AR4 
IF < I  LE. 0)1  =  1 
IF ( I . GT . IP ) 1=1 
IF ( IZ2 . LE . 0 ) IZ2=NUMPT 
IF ( IZ2 . GT . IP  ) IZ2=NUMPT 
C 

C  PUNCH  OPTION  MODAL  COEFFICIENTS 

C 

CALL  IGSW ( NU , 0 ) 

IF< (NU.EQ, 1) .OR . (NU.EQ.6) ) WRITE (NU, 2002) 

2002  FORMAT </, "MODE  POINT  X,Y,Z  DEFORMATIONS” 

1,"  X , Y , Z  PHASE  ANGLES",/) 

RMAX=RMM< IZi ) 

DO  1700  I I = I , IZ2 

IF  < ISSW< 14 ) . LT ■ 0 )GO  TO  1000 


CALL  RUCMC ( 1 , Zi ,LOi , IZi , I I , IP , IBM,RMAX , 1 ) 
CALL  R UCMC ( 2 , Z2 , L02 , IZ 1 , 1 1 , IP , IBM , RMAX , 1 ) 
CALL  RUCMC ( 3 , Z3 , L03 , IZI , I I , IP , IBM ,RMAX , 1 ) 
C 

C  THIS  WRITE  MUST  BE  THE  SAME  AS  1680 

C 

170  0  WRITE < NU , 171 0 ) IZI , II , Zi ,Z2 , Z3 , LOl ,L02 , L03 
1710  FORMAT (I2,I5,1X,3(2X,G12.3) ,3(2X,I4) ) 

IZ1  =  0 
11  =  0 
Z1  =  0  .  0 
7.2=0  .  0 
Z3=0  .  0 
LOl  =  0 
LO2=0 
LO3=0 


UR  I TE ( NU , 17 1 0 ) I Zi , 1 1 , Zl , Z2 , Z3 , LOi , L02 , L03 
IF ( NU . NE . 8) GO  TO  1000 
END  FILE  NU 
GO  TO  1000 
C 

C  STORE  AND  READ  SET-UP  AND  MODAL  DATA  TO  AND  FROM  DISC 

C 

C  READ 

C 

6000  CALL  K YBD< 2HMS ,35,1) 

CALL  KYBD(2HMS,25) 

IF < IPAR 1 , EQ , -9999 ) GO  TO  9011 

IF< (IPARi .GE.0) .AND, ( IPAR 1 . LE . 800 ) )  CALL  KYBD<2HMS,31 , IPAR1 ) 
IF ( < IPARi .LT . 0) .OR , (IPAR1 ,GT .800) )GQ  TO  6800 


CALL  K YBD<2HMS ,11,0) 

CALL  K  YBD ( 2HMS , 3 1 , - 1 , 1 ) 

CALL  RWCOM< -1 ) 

IF< ICOMM .NE . 12345)G0  TO  6800 
CALL  KYBDC2HMS , 1 1 , ION) 

CALL  RUCOM(O) 

IF ( ICOMM. NE, 12345 >GO  TO  6800 
NMP*0 
IRJ-ICM 
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0299 

CALL  K YBD( 2HMS , 1 1 , IR  J ) 

0300 

IR J=IR J-i 

0301 

6100 

DO  6200  I=IBM , IRJ 

0302 

6200 

CALL  KYBD(2HMS,ii,I> 

0303 

CALL  K YBD ( 2HMS ,35,1) 

0304 

CALL  K YBD ( 2HMS ,  15 ) 

0305 

ICQMM=12345 

0306 

WRITE <1,1235 HITCH  ,1  =  1,5) 

0307 

GO  TO  1000 

0308 

C 

0309 

C 

STORE 

0310 

C 

0311 

6500 

CALL  K Ybu<  2HMS ,35,1) 

0312 

CALL  K YBD ( 2HMS , 25 ) 

0313 

IF ( IPARi . EQ . -9999 ) GO  TO  9011 

0314 

IF ( ( IPAR 1 . GE , 0 ) .AND. < IPARi .LE . 800 )) CALL 

KYBD(2HMS, 31, IPARi) 

0315 

IF< (IPARI .LT. 0) .OR .< IPARI . GT . 800 ) >GO  TO 

6800 

0316 

IL.*2H## 

0317 

CALL  RWCOH(i) 

0318 

IH  <  6 ) =525256 

0319 

IH  <  9 )  =  1 0 

0320 

IH( 10 )=IT ( 1 > 

0321 

IH<il)=IT<2) 

0322 

IH(12)=IT<3) 

0323 

IH( 13)=IT (4) 

0324 

IH< 14)=IT (5) 

0325 

IH(34)=2H7i 

0326 

CALL  KYBD<2HMS,2i ,ION> 

0327 

CALL  KYBD(2HMS ,21 , I CM) 

0328 

IH(34)=2H72 

0329 

IR J=ICM-1 

0330 

IPARi=IPARl+2 

0331 

DO  6700  I=IBM,IRJ 

0332 

IPAR 1=IPAR 1+1 

0333 

6700 

CALL  K YBD <  2HMS ,21,1) 

0334 

WRITE< 1 ,6701 >IPAR1 

0335 

6701 

FORMAT </,"NEXT  DATA  RECORD  IS  ",I4> 

0336 

CALL  KYBD<2HMS ,35,1) 

0337 

CALL  KYBDC2HMS, 15) 

0338 

GO  TO  1000 

0339 

680  0 

URITEt 1 ,6801 ) 

0340 

6801 

FORMAT < / , "ERR OR -INVALID  DATA  RECORD") 

0341 

NMP  =  0 

0342 

IC0MM=12345 

0343 

GO  TO  1000 

0344 

c********************************************************************** 

0345 

C 

EXIT  TO  OTHER  OVERLAYS 

0346 

c********************************************************************** 

0347 

9001 

1  =  1 

0348 

GO  TO  9900 

0349 

9003 

1=3 

0350 

CO  TO  9900 

0351 

9004 

1*4 

0352 

GO  TO  9900 

0353 

9005 

1*5 

0354 

GO  TO  9900 

0355 

9006 

1*6 

0356 

GO  TO  9900 

0357 

9007 

1*7 

0358 

GO  TO  9900 

0359 

9008 

1=8 

0360 

GO  TO  9900 

0361 

9011 

1  =  11 

0362 

GO  TO  9900 

0363 

9900 

CONTINUE 

0364 

IFLAG*i 

0365 

CALL  RWCOM ( 1 ) 

0366 

CALL  K YBD( 2HMS , 38 , I ) 

0367 

CALL  OULD < 9) 

0368 

9995 

CONTINUE 

0369 

IL=2H#* 

0370 

IF (ICOMM.EQ. 12345) CALL  RWCOM(l) 

0371 

CALL  K  YBD  ( 2HBS , IBS , 0 ) 

0372 

RETURN 

0373 

END 

0374 

END* 
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0001 
0001! 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0  017 
0  018 
0019 
0  020 
0021 
0022 
0  023 
1)024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 


FTN4 

SUBROUTINE  YO 0 09 < INTQT , IP AR > 

C 

C  THIS  PROGRAM  IS  STORED  UNDER  «Y903 

C 

C  :^##*#####**#*##*##****#*******#**#*#*****#***#****#*******#****#**#### 

C 

C  PROGRAMMER:  R . J . ALLEMANG 

C  MAIL  LOCATION  *  72 

C  UNIVERSITY  OF  CINCINNATI 

C  CINCINNATI,  OHIO  45221 

C  513-475-6670 

C 

C  REVISION  DATE:  DEC  17,1979 

C 

C #*#**#######*##**##**#)M#**#********##*####***##*## ft##*##*#**#**######* 

DIMENSION  IP AR  < 6 ) , LINE ( 36 > , LINEi < 35 > , IZ(10> ,INQ(6> 

1 ,IDIV(i> , ICMMD  <  24  > , IH< 1 ) , IXi ( 1 ) , IY1 < 1 ) , IDX< 1 > ,IDY(i> 

2,IC1<1) ,IPTCM< 1) ,RH< 1) 

EQUIVALENCE  < LINE < 2 ), LINEi > 

COMMON  ICGMM ,MANRE , MDVA , BETA  > IBLS , IT( 5 > , ID( 3) ,1P,NUMPT 
1 , NM , ICON , NCOM ,XXX(3,i0),IX<3,i0>,IC(10), NMP , XR ( 3 ) , A ( 2 , 3 ) 

2, 0(3), IB (10) , NCN ( 10 ) ,SF(2) ,XXA(2,3) ,YYA(2,3) 

3 ,  FSHFT  ,  DF  ,  MCF  ,IZR,IL.,IPAR1,IPAR2,IPAR3,IPAR4,IPAR5,IPAR6 
4 , IFLAG , NS ,NE , RMM ( 10 ) ,FRQ(10) ,ZETA(10) 

EXTERNAL  HDR8 , DTAD0 , NMAX 
DATA  YMAX/0 . / 

DATA  ICMMD/2HD  ,2HV  ,2HX  ,2HEX,2H:  , 

12HM  ,2H_  , 2HR0 , 2HA- ,2HAM , 

22HCH ,2HSP ,2HX< , 

32HX > , 2HCV  , 2H(  ,2HB  ,2HL  , 

42HU  , 2HI  , 2HK  ,2HA+,2H/L, 

52HX  / 

C*********************************************************************** 
C  UNIVERSITY  OF  CINCINNATI/LEUVEN  MODAL  ANALYSIS  PROGRAM 

C 

C  PARAMETER  ESTIMATION  SET-UP  PROGRAM 

C*********************************************************************** 

IBELL=7B 

IPAGE*15414B 

IC0MM=1234S 

IFLG2*7777 

IBS*1024 

CALL  SETAD( HDR8 , IH , -8 , 0 ) 

CALL  SETAD(HDR8,RH(1) ,67,0) 

CALL  KYBD ( 2HBS , IBS , 0 ) 

CALL  GETI(NMAX,IBLM) 

ION-IBLM-1 

ICM-ION-1 

IBM=2 

CALL  RWCOM(O) 

C 

C  IF  PROGRAM  REQUIRES  INITIALIZATION,  LOAD  Y  91 

C 

IF ( ICOMM . EQ . 12345)GQ  TO  900 
CALL  KYBD(2HMS,3B,-3, 1 ) 

CALL  OVLD(9> 

900  CONTINUE 


0  0  '59 
0060 
0061 
0  062 
0  063 
0  064 
0  065 
0066 
0067 
0  068 
0069 
0070 
0071 
0  072 
0073 
0074 
0  075 
0076 
0077 
0078 
0079 
0080 
0081 
0  082 
0083 
0  084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
11105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 


IFL.G4=0 

IF ( IFLAG . EQ . 1 )G0  TO  1130 
IF  <  I  FLAG  .  EG)  ■  96  >GO  TO  1900 
IF ( IFLAG , EQ . 97 ) GO  TO  1000 
IF ( I COMM , NE , 12345 > GO  TO  1000 

C ** ** *  ***** * ** ** *********** ** * ** * ******** * * ****** ********  He  ** * *#** ** *** * * 

C  START  OF  MONITOR 

C********************************* ************************************** 

1000  WR ITE ( i  ,  1 0 i 0  ) IBELL 
1010  FORMAT< "*" ,A2) 

I-ISWR (177677B,0,Q) 

IPARl=-9999 
IPAR2=-9999 
IPAR3=-9999 
IP AR4=-9999 
IP AR5=-9999 
IP AR6--9999 
1020  DO  1030  1=1 >36 
1030  L. INE(  I  )=2H  , 

1040  CALL  TTYI^w.INE', 

1042  GALL  TEST  < i , 1ST ,LOG ) 

IF  ( 1ST  .  L T  .  G.f  TO  1042 
CALL  C.jLt 
R EAD (LINE,! 120 >IL 
IF ( ICOMM . FQ  12345)G0  TO  1115 
1115  CONTINUE 
1120  FORMA  r ( A2 ) 

CALL  CODE 

READ(LINEl,*)IPARi,IPAR2>IPAR3>IPAR4,IPAR5>IPAR6 

C*********************************************************************** 

C  MONITOR  COMMAND  TABLE 

C*********************************************************************** 

1130  IFLAG=0 

CALL  RWCOM(i) 

IF(IL.EQ.2H##)G0  TO  1000 
NCMMD=24 

DO  1138  1=1 ,NCMMD 

IF ( IL . EQ . ICMMD< I ) )GO  TO  1144 

1138  CONTINUE 

1139  WRITE< 1 , 1140  > 

1140  FORMAT(/> "ERROR-ILLEGAL  COMMAND") 

GO  TO  1000 

1144  IF< I . GT . 10 )GO  TO  1146 

GO  TO  <9004,9004,9004,9004,9004,9004,9004,9004,9004,9004) , I 
1146  1=1-10 

IF< I . GT , 1 0 )GO  TO  1148 

GO  TO  (9004,9004,6000,6500,9004,9995,1100,1100,9002,9001) , I 
1148  1=1-10 

GO  TO  <9001, 1400, 9008, 9011), I 
1100  CONTINUE 

IF < IPARi , EQ . 37 )GQ  TO  9005 
IF < IPAR 1 . EQ . 1 0  >GO  TO  9006 
IF < IPARI , EQ . 6 )GO  TO  9007 
GO  TO  1139 

C************************************************************* 

C  MODAL  SET-UP  STARTING  VALUES 

C************************************************************* 

1400  CONTINUE 

WRITE<1 ,14S0)IPAGE, IBELL 
READ (1,#) IANS 


I 


i 


Oil?  1450  FORMAT < A2,/ , "ENTER  OPTION  TO  BE  USED", 
0120  1"  FOR  FREQUENCIES  AND  DAMPING", 


0121 

2  / ,  " 

1) 

MANUAL" , 

0122 

3  /," 

2) 

CURSOR " , 

0123 

4  /,  " 

3> 

LEAST  SQUARES  ESTIMATE", 

0124 

5  / ,  " 

4) 

CURRENTLY 

SELECTED  VALUES 

0125 

6  /," 

5) 

RETURN  TO 

MONITOR" ,A2,/> 

0126  IF ( < IANS . LT . 1 > . OR . < IANS . GT . 5) )GO  TO  1400 

0127  IF (lANS.EQ.S)GO  TO  1000 

0128  IF ( IANS , EQ . 4 )GO  TO  1900 

012V  MCF=0 

0130  DO  1460  1=1,10 

0131  FRQ  < I >  =0 , 0 

0132  ZETA  < I )  =  0 , 0 

0133  NCN ( 1 ) =0 

0134  IB  < I )  =  0 

0135  1460  CONTINUE 

0136  IFLG4=i 

0137  C 

0138  C  IFLG4=0  CURSER  HAS  ALREADY  BEEN  INITIALIZED 

0139  C  IFLG4=i  THIS  IS  THE  FIRST  TIME  INTO  CURSER 

0140  C 

0141  1500  WRITE!!, 1600) I BELL 

0142  1600  FORMAT !A2 ,  / > "INPUT  DISC  DATA  RECORD  OF  TYPICAL  TEST  DATA:") 

0143  READ  < 1 , * ) I 

0144  IF<<I.LT.0) .OR. (I . GT.810) )GO  TO  1500 

0145  CALL  K YBD ( 2HMS ,31 , I ) 

0146  CALL  K  YBD  ( 2HMS  ,  i 1 , 0  > 

0147  IIBS=1H!5) 

0148  C 

0149  C  MAKING  SURE  ALL  OF  THE  BLOCK  WAS  LOADED 

0150  C 

0151  IFUIIBS.  LE.  2048)  .AND.  ! IIB5 , GE . 128) )GO  TO  1650 

0152  WRITE<i,165i> 

0153  1651  FORMATS,  "ERROR-ILLEGAL  BLOCK  SIZE") 

0154  1650  CONTINUE 

0155  CALL  KYBD(2HBS , IIBS , 0 ) 

0156  CALL  K YBD ( 2HMS ,31 , I ) 

0157  CALL  KYBD<  2HMS ,11,0) 

0158  IZR=IH!36> 

0159  IF(IH(4) ,NE.99> GO  TO  1680 

0160  WRITE! 1 , 1670 ) IZR 

0161  1670  FORMAT!/, "ZOOM  RANGE  OF  THE  DATA  IS",2X,A2) 

0162  1680  CONTINUE 

0163  FSHFT=RH! 1 ) 

0164  DF=RH!2> 

0165  IF!IANS.LT ,3) GO  TO  1700 

0166  C 

0167  C  LEAST  SQUARES  STARTING  VALUE  SET-UP 

0168  C 

0169  WRITE! 1 , 1665) I BELL 

0170  1665  FORMAT!/, "ENTER  OPTION  FOR  CHOICE  OF  STARTING  CHANNEL AS 

0171  1 / , SX , " i >  MANUAL", 

0172  2/,5X, "2)  CURSOR",/) 

0173  READ! 1 , #>MMMM 

0174  IF ! MMMM , EQ . 2 )GQ  TO  1668 

0175  WR ITE! 1 , 1669  > I BELL 

0176  1669  FORMAT!/,  "ENTER  CHANNEL  NUMBER  ,A2,/) 

0177  READ! 1 ,#)NS 

0178  GO  TO  1772  .  „„ 


I 


0179 

1668 

CONTINUE 

0180 

WRITE<1,1660) I BELL 

0181 

1660 

FORMAT </, "SET  CURSOR  ON  STARTING  CHANNEL s", A2 ,/ ) 

0188 

ITEMP=0 

0183 

CALL  CURSE<  0 , ITEMP ) 

0184 

IF < ITEMP .EQ. -9999 >NS=0 

01  as 

NS=IABS< ITEMP ) 

0186 

1772 

CONTINUE 

0187 

IF ( NS . EQ . 0 )NS=i 

0188 

F~ FLOAT ( NS ) #DF+FSHFT 

0189 

1688 

WRITE( 1 , 1691 ) IBELL 

0190 

1691 

FORMAT</, "ENTER  NUMBER  OF  POINTS  TO  BE  USED  IN  THE", 

0191 

1,"  PARAMETER  ESTIMAT ION : " , / , 5X , " ( 64 , 128 , 256 ) " , A2 . / ) 

0192 

READ  <  1 ,  #)  NE 

0193 

IF( (NE .EQ.64) .OR . (NE.EQ. 128) .OR . (NE.EQ.256) >GO  TO  1696 

0194 

GO  TO  1688 

019S 

1696 

CONTINUE 

0196 

M3=40  0 

0197 

IF <  NE . EQ . 64  )  M3=70  0 

0198 

IF ( M3 .EQ.256)M3=30Q 

0199 

NE=NS+NE 

0200 

DO  1695  MMMM=1 , M3 

0201 

1695 

CALL  KDIS ( 0 , NS , NE , 4 ) 

0202 

WR ITE < 1, 1692 )F, NS, NE, IBELL 

0203 

1692 

FORMAT ( / "STARTING  FREQUENCY  ", E14 . 5 , 

0204 

1/,  "CHANNEL  " , 1 5 , "  TO  ",I5, 

020S 

2//, "ENTER  0  TO  ACCEPT ! " , A2 ,/ ) 

0206 

READ<1,*)MMMM 

0207 

IF(MMMM , NE . 0 )GO  TO  1400 

0208 

CALL  K YBD<  2HBS , IBS , 0 ) 

0209 

GO  TO  9009 

0210 

C 

0211 

C 

MANUAL  AND  CURSOR  STARTING  VALUE  SET-UP 

0212 

C 

0213 

1700 

CONTINUE 

0214 

WRITE (1,1730) IBELL 

021S 

1730 

FORMAT*/,  "ENTER  MODE  NUMBER  AND  BANDWIDTH  i  "  ,A2 ) 

0216 

1740 

READ ( 1 , # ) M , IBW 

0217 

IF ( M . LT . 0 ) GO  TO  1500 

0218 

IF(M.EQ.O)  GO  TO  1800 

0219 

IF(M.GT.NM)  WR ITE  < 1 , 1760  > 

0220 

IF(M.GT.NM)  GO  TO  1700 

0221 

IF ( IANS . EQ . 2  >  GO  TO  1743 

0222 

WR ITE  < 1 , 1742) I BELL 

0223 

1742 

FORMAT  </  ,  "ENTER  CHANNEL  NUMBER A2 ) 

0224 

READ( 1 , # ) ITEMP 

0225 

GO  TO  1746 

0226 

1743 

CONTINUE 

0227 

IF ( IFLG4 . EQ . 1 ) ITEMP=Q 

0228 

IF  < IFLG4 . EQ . 1 ) IFLG4=0 

0229 

CALL  CURSE(0, ITEMP) 

0230 

IF < ITEMP. EQ. -9999 >NCN<M)=Q 

0231 

IF< ITEMP .EQ.-9999)G0  TO  1000 

0232 

1746 

NCN<M)=IAB5< ITEMP ) 

0233 

ITEMP-IABS* ITEMP) 

0234 

FRQ(M)=FLOAT  <NCN<M) >*DF+FSHFT 

0235 

WR ITE <1, 1750 )NCN(M) ,FRQ(M) 

0236 

1750 

FORMAT  <I4,2X,F12.4) 

0237 

1760 

FORMAT </, "ERROR-VALUE  GREATER  THAN  NUMBER  OF  MODES") 

0238 

IB(M)=IBW 
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0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0276 

0279 

0280 

0261 

0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 


GO  TO  1700 
1800  CONTINUE 

CALL  KYBD<2HBS,IBS,G> 

CALL  RWCQM  < 1 ) 

C**#****#**##*#*##*#*##***####***#**#**#*#*#*##*#**#*#»*##**#*#****####* 
C  MODAL  COEFFICIENT  ACQUISITION  PARAMETER  ESTIMATION 

C*********************************************************************** 


1900  CONTINUE 

WR ITE( 1,1905) IP AGE, IBELL 
1905  F0RMAT(A2,/, "ENTER  OPTION  TO  BE  USED  TO", 
1"  DETERMINE  MODAL  COEFFICIENTS :  11 


1) 

MAGNITUDE" 

2,/," 

2) 

IMAGINARY  PART" 

3,/," 

3) 

REAL  PART" 

4  ,  /  ,  " 

4) 

KENNEDY-PANCU  CIRCLE  FIT" 

5,/," 

5) 

LEAST-SQUARES  FREQUENCY  DOMAIN 

6,/," 

6) 

RETURN  TO  MONITOR " ,A2 ,/ ) 

READ ( 1 , * ) IANS 

IFUIANS.LT  .  1 )  .OR  .  (IANS.GT.6)  >GO  TO  1900 
I F ( I ANS . EQ . 6 ) GO  TO  1000 
WRITEd  ,1906)  IBELL 

1906  FORMAT</, “ENTER  0  TO  CLEAR  CURRENT  MODAL  COEFFICIENTS" , A2 > 
READ(i,*)I 

IF ( I , NE . 0 )GO  TO  1909 


CALL  K  YBD  <  2HCL. ,  0  ) 
CALL  GETQ<  0 , INQ ) 

INQ (2)=176500B 
INQ (3 ) =777778 
DO  1907  I=IBM, ION-2 
CALL  KYBD<2HCL , I ) 

1907  CALL  PUTQ< I , INQ) 

DO  1908  1=1,10 

1908  RMM ( I ) =0 . 0 
CALL  RWCOM(i) 

1909  CONTINUE 
MCF=IANS 


IF( IANS . EQ . 5 ) GO  TO  9010 

ICUR=-9999 

WRITEd, 1910)IBELL 


1910  FORMAT < "  SWITCH  15  ABORT  POINT  PRINT", 

1/,"  SWITCH  14  ABORT  PARAMETER  ESTIMATION", 
2/,"  SWITCH  13  ABORT  AUTOMATIC  CALIBRATION", 


3/,"  SWITCH  12 
4/,"  SWITCH  11 
5/,"  SWITCH  10 


SKIP  DIRECTIONAL  COSINE  CHECK" 
ABORT  NIXIE  TUBE  DISPLAY", 
SUPPRESS  SCALING  QUESTION", 


5/,"  SWITCH  0  AUTOMATIC  CIRCLE  FIT", 

6//,"  ENTER  RANGE  OF  DISC  RECORDS  FOR  CURRENT  TEST  •. 
READd  ,*) IRECI ,  IREC2 


IF  <  < IREC1 . LT . 0 ) . OR . < IRECi . GT . 819 > ) IRECi  =  0 


IF  <  < IREC2 . LT . 0 ) .OR. ( IREC2 . GT . 819) ) IREC2=819 


C 

C 

C 

C 

C 

C 

C 

C 


SWITCH  IS 
SWITCH  14 
SWITCH  13 
SWITCH  12 
SWITCH  11 
SWITCH  0 


SUPPRESS  PRINTOUT  TO  TERMINAL 
ABORT  MODAL  COEFFICIENT  ACQUISITION 
SKIP  DATA  CALIBRATION 
SKIP  DIRECTIONAL  COSINE  CHECK 
SKIP  NIXIE  TUBE  DISPLAY 
AUTOMATIC  CIRCLE  FIT  ACQUISITION 


CALL  KYBD12HMS, 31, IRECI) 
IIBB-1024 
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,A2) 


i 


r 

- 5= 

MV 

4 

1  0299 

20  Q  0 

CONI INUE 

I  0300 

IF ( IRECi . GT . IREC2)GQ  TO  1000 

1  030  i 

IF ( ISSW< 14) .LT . 0 )GO  TO  1000 

I  0302 

IFdSSW(il)  .LT.O)GO  10  20  01 

1  0303 

CALL  NIXIT(lRECi) 

E  0304 

2001 

IREC1=IREC1+1 

I  03  OS 

I  0306 

C 

CALL  K YBD (2HMS ,11,0) 

I  0307 

C 

GET  DATA  FROM  HEADERS 

I  0308 

1  0309 

C 

1IBS=IH ( 5 ) 

I  0310 

CALL  CHKID( IT , ICIC ) 

1  0311 

IF < ICIC . EQ . 0 ) GO  TO  20  00 

1  0312 

CALL  K YBD ( 2HBS , 1IBS , 0  > 

K  0313 

IF ( IH( 36) . NE . IZR ) GO  TO  2000 

1  0314 

2004 

IDi=IH< 19) 

I  031S 

IS=IH<45> 

f  0316 

I  0317 

C 

IF  < IS . GT . IP )GO  TO  2000 

I  0318 

c 

CORRECT  DATA  WITH  STORED  CALIBRATION 

CONSTANT 

1  0319 

c 

OR  CALIBRATION  CURUE 

I  0320 

I  0321 

c 

IF<ISSW< 13) >2030,2010 

1  0322 

2010 

CONTINUE 

1  0  323 

IF  <  RH(3) . GT . 0 . 0 ) GO  TO  2030 

j 

1  |'  0324 

IRCAL-IFIX( ABS(RH<3> ) ) 

1  0325 

WRITE( 1,2012) IRCAL 

I  '  0326 

2012 

FORMAH/,  "CALIBRATION  RECORD  IS  " ,14) 

I  0327 

IF ( ICUR . EG . IRCAL ) GO  TO  2020 

I  0328 

CALL  FNDFP  < 1 , IPTR ) 

1  0329 

CALL  KYBD<2HMS,3i, IRCAL) 

I  0330 

CALL  K YBD(2HMS ,11,1) 

1  0331 

CALL  KYBD(2HMS,31,IPTR> 

|  0332 

1CUR=IRCAL 

|  0333 

2020 

CONTINUE 

0334 

0335 

C 

CALL  K YBD  <  2H ;  ,1) 

0336 

C 

SWITCH  IS  ON  SUPRESS  OUTPUT  TO  TERMINAL  DURING  AUTO  SEARCH 

0337 

C 

0338 

2030 

IF ( ISSW( 15) >2060,2040 

?•  0339 

2040 

CALL  IQSWtNU, 0) 

0340 

WR ITE<  NU ,2Q50)IDi,IS 

0341 

2050 

FORMAT  <  A2 , 15 ) 

0342 

2060 

DO  2220  1=1, NM 

0343 

IBU=IB ( I ) 

0344 

NC=NCN< I) 

0345 

0346 

C 

CALL  GET (0,NC,X,Y> 

0347 

C 

MAGNITUDE 

0348 

0349 

C 

R=ABS<SQRT(X*X+Y*Y) ) 

0350 

ANG*ATAN2(Y,X) 

0351 

03S2 

C 

IF < IANS . EQ . 1 >GO  TO  2140 

0353 

C 

REAL  PART 

03S4 

0355 

C 

R*X 

0356 

0357 

0358 

C 

ANG-1. 5707963 

IF ( IANS . EQ . 3)G0  TO  2140 
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0359 

C 

IMAGINARY  PART 

0360 

C 

0361 

R=Y 

0362 

ANG=i .5707963 

0  363 

I F ( I ANS . EQ . 2 ) GO  TO  2140 

0364 

IF  <  IBW  ,  EG) .  0  )  GO  TO  2140 

0  365 

C 

0366 

C 

CIRCLE  FIT  AND  INTERACTIVE  EDITING 

0367 

C 

0368 

2070 

CALL  CIR(NC,IBW,Xi,Yi,R> 

0369 

R=ABS(R) 

0370 

X=X~X1 

0371 

Y=Y-Y 1 

0372 

ANG=ATAN2(Y,X> 

0373 

C 

0374 

C 

SWITCH  0  ON  NO  DISPLAY  AUTOMATIC  CIRCLE  FIT 

0375 

C 

0376 

IF (ISSW(0) >2110,2080 

0377 

2080 

CALL  KYBD ( 2HX  >  > 1 ) 

0378 

IZ1-33 

0379 

IZ2=NC-IBW 

0380 

IZ3*NC+IBU 

0381 

IZ4-IZ2-15 

0382 

IZS=IZ3+iS 

0383 

Zi  =  0 . 0 

0384 

DO  2090  J*i,IZi 

0385 

Zi=Zi+ . 2 

0386 

Z2=R*SIN(Zi)+Xi 

0387 

Z3=R*C0S(Z1)+Y1 

0  388 

2090 

CALL  PUT ( 1 , J ,Z2 , Z3 > 

0389 

WRITE< 1,2091) IBELL 

0390 

C 

0391 

C 

CIRCLE  FIT  MONITOR  "D” 

0392 

c 

0393 

2091 

FORMAT ( “#D " , A2 ) 

0394 

CALL  TTYIN(LINE) 

0395 

210  0 

CALL  TEST ( 1 , 1ST ,LOG ) 

0396 

C 

0397 

C 

CIRCLE  FIT  DISPLAY 

0398 

C 

0399 

CALL  KDIS(G,IZ2,IZ3,4> 

0400 

CALL  KDIS<l,i,IZl ,4) 

0401 

CALL  KDIS<0,IZ4,IZ5,4> 

0402 

CALL  KDIS(0,IZ2,IZ3,4> 

0403 

IF(IST>2100, 2110, 2110 

0404 

2110 

CALL  CODE 

0405 

READ<LINE,1120)IL 

0406 

IF ( IL . EQ . 2HCL  >GO  TO  2130 

0407 

IFdL.EQ.2H  )GQ  TO  2125 

0408 

IF < IL . EQ . 2HA- )GO  TO  2112 

0409 

IF ( IL , EQ . 2H/R  >GO  TO  2114 

0410 

CALL  CODE 

0411 

READ  (LINE  ,JK)IPAR1,IPAR2,IPAR3,IPAR4 

0412 

IBW=IP AR 1 

0413 

IF < IP ARi >2135,2120 ,2070 

0414 

2112 

NC=NCN( I ) 

0415 

GO  TO  2070 

0416 

2114 

NCN( I )*NC 

0417 

IB( I )*IBW 

0418 

GO  TO  2070 
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0419 

2120 

R=Y 

0420 

GO  TO  2140 

0421 

2125 

CALL  CODE 

0422 

READ(LINE1,*)IPAR2 

0423 

NC=NC+IPAR2 

0424 

GO  TO  2070 

0425 

2130 

R  =  0 

0426 

2135 

R=R*2. 0 

0427 

2140 

CALL  KYBD(2HBS,IBS,0> 

0428 

C 

0429 

C 

MODAL  COEFFICIENT  IS  PROPORTIONAL  TO 

DIAMETER 

0430 

C 

0431 

RMAX=RMM ( I ) 

0432 

IF(RH(3) .  GT . 0 , 0 ) R=R#RH( 3 ) 

0433 

IF ( ANG , GE . 0 ) GO  TO  2143 

0434 

R=  ( -1 . 0  )*R 

0438 

ANG=ANG+3, 14159265 

0436 

2143 

Li=IFIX(ANG*57 .295774) 

0437 

C 

0438 

C 

CORRECT  FOR  TRANSDUCER  ORIENTATION 

0439 

C 

0440 

IP ( ( IDI . EQ . 2HX-) . OR . ( ID1 . EQ . 2H-1 ) )  GO  TO  2160 

0441 

IF( (IDi .EQ.2HX  )  .  DR . ( IDi . EQ . 2H1  >>GQTO 

2170 

0442 

IF ( ( IDI .EQ.2HY-) . OR . ( IDi . EQ . 2H-2) >GO  TO 

2180 

0443 

IF< (IDI .EQ.2MY  ) . OR . ( IDi . EQ . 2H2  ))GO  TO 

2190 

0444 

IF( (IDi .EQ.2HZ-) .OR . ( IDi . EQ . 2H-3 > >GO  TO 

2200 

0445 

IF( (IDi .EQ.2H2  ) . OR . ( IDi . EQ . 2H3  ))GO  TO 

2210 

0446 

C 

0447 

C 

DIRECTIONAL  COSINE  CHECK 

0448 

C 

0449 

IF(ISSW(i2))2i44,2149 

0450 

2144 

CONTINUE 

0451 

IF ( IDi . NE . 2HD  >GO  TO  2149 

0452 

PI=3. 14159265 

0453 

DO  2145  IM=i,3 

0454 

IM3=IM+3 

0455 

Rl=R*C0S(RH(IM3)*PI/i8Q  .0) 

0456 

CALL  R  WCMC  ( IM , R 1 , Li , I , IS , IP , IBM ,  RMAX ,  u  ) 

0457 

2145 

CONTINUE 

0458 

GO  TO  22 i 5 

0459 

2149 

CONTINUE 

0460 

WRITE( 1 ,2150) 

0461 

2150 

FORMAK/,  "ERROR-WRONG  COORDINATE  CODE") 

0462 

CALL  K YBD ( 2HMS , 1 > 

0463 

GO  TO  2000 

0464 

2160 

R=-  R 

0465 

2170 

CALL  RUCMC (i, R, LI, I, IS, IP, IBM, RMAX , 0 ) 

0466 

GO  TO  2215 

0467 

2180 

R=-R 

0468 

2190 

CALL  RU)CMC(  2  ,R, Li, I, IS,  IP,  IBM ,  RMAX ,  0  ) 

0469 

GO  TO  2215 

0470 

2200 

R=-R 

0471 

2210 

CALL  RWCMC( 3 ,R ,L1 , I , IS , IP , IBM, RMAX , 0 ) 

0472 

2215 

CONTINUE 

0473 

C 

0474 

C 

RMM  ARRAY  HAS  THE  SCALE  FACTOR  FOR 

0475 

C 

EACH  MODE - VALUES  ARE  STORED  AS 

0476 

C 

NUMBERS  FROM  1  TO  2000 

0477 

C 

0478 

RMM(I)»RMAX 
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0479 

2220 

CONTINUE 

0480 

GO  TO  2000 

0481 

C 

0482 

C 

STORE  AND  READ  SET-UP  AND  MODAL  DAI  A  TO  AND  FROM  DISC 

0483 

C 

0484 

C 

READ 

0485 

C 

0486 

60  0  0 

CALL  K  YBD  ( 2HMS ,35,1) 

0487 

CALL  KYBD ( 2HMS , 25 ) 

0  488 

IF<  IPARi  .  EtJ .  -9999) GO  TO  9011 

0489 

IF ( ( IPARI .GE. 0) .AND, (IPARi .LE.800) )  CALL  K YBD (2HMS, 31 , IPARi 

0490 

IF  ( (IPARi  .L.T.  0)  .OR.  (IPARI .  GT  .  800)  >GO  TO  6800 

0491 

CALL  K YBD (2HMS, 11,0) 

0492 

CALL  KYBD(2HMS,3i,-i,i> 

0493 

CALL  RWCQM(-i) 

0494 

IF (ICOMM.NE. 12345)G0  TO  6800 

0495 

CALL  KY»D(2HMS, 11 , ION) 

0496 

CALL  RWCOM(O) 

0497 

IF (ICOMM.NE. 12345)G0  TO  6800 

0498 

NMP  =  0 

0499 

IR J-ICM 

0500 

CALL  KYBD ( 2HMS , 1 1 , IR J ) 

0501 

IRJ=IRJ~1 

0502 

6100 

DO  6200  I=IBM,IRJ 

0503 

620  0 

CALL  KYBD ( 2HMS ,11,1) 

0504 

CALL  KYBD(2HMS ,35 , 1 ) 

0505 

CALL  KYBD(2HMS, 15) 

0506 

WRITE <1, 1235) (IT( I) ,1=1,5) 

0507 

1235 

FORMAT ( / , "TEST  ID  IS“,23X,5A2) 

0508 

GO  TO  1000 

0509 

C 

0510 

C 

STORE 

0511 

C 

0512 

650  0 

CALL  K YBD  <  2HMS ,35,1) 

0513 

CALL  K YBD  <  2HMS , 25 ) 

0514 

IF (IPARI .EQ.-9999JG0  TO  9011 

0515 

IF ( ( IPARi . GE . 0 ) .AND . ( IPAR 1 . LE . 80 0  > )CALL  K YBD( 2HMS , 31 , IPAR 1 ) 

0516 

IF< ( IPARi .LT . 0) .OR . (IPARi . GT .800) )GO  TO  6800 

0517 

IL=2H## 

0518 

CALL  RWCOM(i) 

0519 

IH(6)=52525B 

0520 

IH(9)=10 

0521 

IH(10)=IT(1) 

0522 

IH( 11 >— IT (2) 

0523 

I H  < 12)  =  IT(3) 

0S24 

IH(13)=IT(4> 

0525 

IH( 14)=IT(5) 

0526 

IH(34)*2H7i 

0527 

CALL  K  YBD  <  2HMS  ,  21 ,  ION ) 

0528 

CALL  KYBD( 2HMS,2i , ICM ) 

0529 

IH(34)=2H72 

0S30 

IR J* ICM- 1 

0531 

IPARi=IPARi+2 

0532 

DO  6700  1= IBM , IR J 

0533 

IPARi*IPARi+i 

0534 

6700 

CALL  K YBD (2HMS, 21,1) 

0535 

WRITE! 1  ,670i)IPARi 

0536 

6701 

FORMAT ( / , "NEXT  DATA  RECORD  IS  ",I4> 

0537 

CALL  KYBD(2HMS,35,1) 

0538 

CALL  KYBD < 2HMS , 15 ) 

I 


I 


0539 
054(1 
054  1 
0542 
0543 
0544 
0545 
0546 
05A7 
0548 
0549 
0550 
0  551 
0552 
0553 
0554 
0555 
0556 
0557 
0558 
0559 
0560 
0561 
0562 
0563 
0564 
0565 
0566 
0567 
0568 
0569 
0S70 
0571 
0572 
0573 
0574 
0575 
0576 
0577 
0578 
0579 
0580 
0581 
0582 
0583 
0584 
0585 
0586 
0587 
0S88 
0589 
0590 
0591 


GO  TO  1000 

6800  WRITE ( i ,6801 ) 

6801  FORMAT < / > "ERROR-INVALID  DATA  RECORD" > 

NMP  =  0 

I COMM* 12345 
GO  TO  1000 

C  EXIT  TO  OTHER  OVERLAYS 

L  *  k  k  1  <k  k  >k^k  k  k  k  ^k  k  >k  k  k  k  k  k  k  k  k  k  k  k 

9001  1=1 
IFLAG=i 

GO  TO  9900 

9002  1=2 
IFLAG=i 

GO  TO  9900 

9003  1=3 
IFLAG=1 

GO  TO  9900 

9004  1=4 
IFLAG=i 

GO  TO  9900 

9005  1=5 
IFLAG=1 

GO  TO  9900 

9006  1=6 
IFLAG=i 

GO  TO  9900 

9007  1=7 
IFLAG=i 

GO  TO  9900 

9008  1=8 
IFLAG=i 

GO  TO  9900 

9009  1=9 
IFLAG=92 
GO  TO  9900 

9010  1=10 
IFLAG=92 
GO  TO  9900 

9011  1=11 
IFLGA=1 

GO  TO  9900 
9900  CONTINUE 

CALL  RWCOM(l) 

CALL  K  YBD ( 2HMS ,38,1) 

CALL  OVLD  ( 9 ) 

9995  CONTINUE 
IL=2H*» 

IF ( I COMM , EQ , 12345 ) CALL  RWCQM(l) 

CALL  K  YBD( 2HDS , IBS , 0  > 

RETURN 

END 

END* 
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0001 
0002 
0003 
0004 
000S 
0006 
0007 
0  0  OB 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
ooia 

0019 
0020 
0021 
0022 
0023 
0  024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0  042. 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0  058 


FTN4 

SUBROUTINE  YO 0 09 < 1 N TOT , IP AR ) 

C 

C  THIS  PROGRAM  IS  STORED  UNDER  *Y904 

C 

C *********************************************************************** 

c 

C  PROGRAMMER;  R . J . ALLEMANG 

C  MAIL  LOCATION  *  72 

C  UNIVERSITY  OF  CINCINNATI 

C  CINCINNATI,  OHIO  45221 

C  513-475-6670 

C 

C  REVISION  DATE;  NOV  20,1979 

C 

DIMENSION  IP AR ( 6 ) , LINE < 36 ) , LINEi ( 35 > , IZ ( 1 0 ) , INQ ( 6 ) 

1 , IDI V ( 1 ) , ICMMDC26) , IH< 1 ) , 1X1 ( 1 ) , I Y 1 ( 1 > , IDX ( 1 ) , IDY ( 1 ) 

2,  ICK1 )  , IPTCM<1 )  ,  LO  ( 3  )  ,  LABEL  <  20  > 

EQUIVALENCE  (LINE<2)  , LINEI ) 

COMMON  ICOMM ,MANRE , MDVA,BETA , IBLS, IT (5 ) , ID ( 3 > ,IP,NUMPT 
1 , NM , ICON , NCOM ,XXX(3,10> ,IX(3,1D) ,  IC ( 1 0 ) ,NMP , XR ( 3> , A ( 2 , 3 ) 

2,0(3) ,IB(10> ,NCN(10) , SF<2 > , XXA ( 2 , 3 ) ,YYA(2,3> 

3 ,  FSHFT , DF ,MCF , IZR , IL , IPAR 1 , IPAR2, IPAR3 , IP AR4 , IP AR5 , IP AR6 
4 , IF  LAG , NS , NE , RMM (10) , FRQ( 1 0 ) , ZETA(iO) 

EXTERNAL  HDR8 , DTADO , NMAX 

DATA  IDZ/00/, INZi/0/, SCALE/32760 ./ 

DATA  ICMMD/2HD  ,2HV  ,2HZ  ,2HEX,2Hi  , 

12HM  ,2H_  , 2HR0 , 2HA- , 2HAM , 

22HCH , 2HSP , 2HX< , 

32HX) ,2HCV,2H<  ,2HB  ,2HL  , 

42HU  , 2HI  , 2HK  ,2HA+,2H/L, 

52H?  ,2H/, , 2HX  / 

c******************************************************************* 

C  UNIVERSITY  OF  CINCINNATI/LEUVEN  MODAL  ANALYSIS  PROGRAM 

C 

C  DISPLAY  PROGRAM 

C*********************************************************************** 

IBELL=7B 

IPAGE=1S414B 

CALL  SETAD (HDR8 , IH, -8 , 0 ) 

ICOMM«0 

IBS=1024 

CALL  K YBD< 2HBS , IBS , 0  > 

CALL  GET I (NMAX, I BLM) 

ION=IBLM~i 

ICM*ION-l 

IBM®2 

I-ION*IBS+270 

CALL  SETAD (DTADO , IPTCM, I ,-i > 

INTPT-0 
CALL  RWCOM(O) 

C 

C  IF  PROGRAM  REQUIRES  INITIALIZATION,  LOAD  Y  91 

C 

IF( ICOMM. EQ.12345>GO  TO  900 
CALL  KYBDC2HMS ,38 ,-4 , i ) 

CALL  OVLD(9> 
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005V 
0060 
0061 
0  062 
0063 
0064 
0  065 
0066 
0067 
0  068 
0069 
0070 
0  071 
0072 
0  073 
0074 
0  075 
0  076 
0  077 
0078 
0  079 
0080 
0081 
0082 
0  083 
0084 
0  085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 


900  CONTINUE 

CALL  SETAD(DTAD0,IX1  ,0,-1) 

CALL  SETAD (DTADO  ,  IY1, 256,-1) 

CALL  SETAD ( DTADO , IDX , 512 , -1 ) 

CALL  SETAD ( DTADO , IDY ,768  ,  -1 ) 

CALL  SETAD (DTADO , IC1 , 1024,-i  ) 

CALL  SETAD(DTADQ ,IDIV, 1536,-1 ) 

IDZ=0 

IDIV  ( 22 ) =0 
IDIV(23)=0 
IDIV(24  >=0 
1D1V(25)=0 
SF i=.  1 
I ANSPD=4 
NMP  =  0 
NMP 1=0 
NPD  =  2 
1KZ=1 
IELG3=0 

IF ( I FLAG . EQ . 1 )GO  TO  1130 

c****«*****************:m**!M******************************************* 

C  DISPLAY  PROGRAM  INFO 

C 

C  LIST  OF  VARIABLES: 

C 

C  NMP 1 = 

C 

C  NMP  = 

C 

C  NSi  = 

C 
C 

C  INZ1=0 

C  INZl=i 

C  INZ1=2 

C  INZ1=3 

C 

C  IDZ=0 

C  IDZ=1 

C 

C  IFLG3=0 

C  IFLG3=1 

C 

C  IFLG4=0 

C  IFLG4=i 

C 

C  IKZ=0 

C  IKZ=1 

C 

C  IXi 

C  IY1 

C  IDX 

C  IDY 

C  IC1 

C  IPTCM 

C 

C  IFLG5=Q 

C  IFLGS»1 

C 

C  IFLG6«0 
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LAST  MODE  WHICH  DISPLAY  WAS  CALCULATED  FOR 

CURRENT  REQUESTED  DISPLAY  MODE 

THE  NUMBER  OF  FRAMES  DISPLAYED  OF  EACH 
DEFORMATION 

ANIMATED  DEFORMATIONS  WITH  UNDEFORMED 
STILL  DEFORMATION  WITH  UNDEFORMED 
ANIMATED  DEFORMATIONS  ONLY 
STILL  DEFORMATION  ONLY 

UNDEFORMEiD  SHAPE  ONLY 

DISPLAY  ACCORDING  TO  INZi  PARAMETER 

A  DISPLAY  HAS  NOT  BEEN  PREVIOUSLY  CALCULATED 
A  DISPLAY  HAS  BEEN  PREVIOUSLY  CALCULATED 


A  FULL  DISPLAY  HAS  BEEN  REQUESTED 
A  PARTIAL  DISPLAY  HAS  BEEN  REQUESTED 

THE  REQUESTED  MODE  IS  THE  SAME  AS  PREVIOUS 
THE  REQUESTED  MODE  IS  DIFFERENT 

X  COORDINATES  OF  THE  DISPLAY  (UNDEFORMED) 

Y  COORDINATES  OF  THE  DISPLAY  (UNDEFORMED) 

X  COORDINATES  OF  THE  DISPLAY  (DEFORMED) 

X  COORDINATES  OF  THE  DISPLAY  (DEFORMED) 
CONNECTIVITY  FILE  FOR  CURRENT  DISPLAY 
POINT  LOCATION  BY  COMPONENT  NUMBER  FILE 

AUTOMATIC  EXPANSION 
INHIBIT  AUTOMATIC  EXPANSION 

AUTOMATIC  DISPLAY  CENTERING 


; 


I 


0119 

0120 

0121 

0122 

0123 

(1124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 


C  IF  LG6=1 

C 

C  INTPT 

C 

C  IFLG8=0 

C  IFLG8=1 


INHIBIT  AUTOMATIC  DISPLAY  CENTERING 

POINT  NUMBER  OF  POINT  TO  BE  INTENSIFIED 

NO  DISPLAY  OVERFLOW 

OVERFLOW  OF  DISPLAY  CALCULATION 


C 

|*i  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  j||  ^  j||  j||  ^  ^  ^  j||  ^  ^  ^  ^  j|^  ^||  ^|r  ^  ^  ^  ^  j^r  \^r  ^  ^ 

c 

C  START  OF  MONITOR 

C 

C*********************************************************************** 


1000 

1010 


1020 

1030 

1040 

1042 

1043 


1044 

1045 


1050 

1060 

C 

C 

C 

1065 

1070 

C 

C 

C 

1080 

1090 

1100 

1110 

C 

C 

C 

iiii 


WRITE<1,1010> I BELL 
FORMAT < ,A2> 

I=ISWR ( 177677B ,0,0) 

IF< (NPD.GT.510) .OR. (NPD.LT .2) )  NPD=2 

NS1=IANSPD#300/NPD 

IF ( NSi , LE , 0  >NSi  =  i 

IF ( NSi . G  f , 10  0) NSi  =  l 0  0 

L=0 

IPAR 1--9999 
IPAR2=-9999 
IP AR3=-9999 
IPAR4=-9999 
IP AR5=-9999 
IPAR6=-9999 
DO  1030  I==l  ,  36 
LINE ( I ) =2H , , 

CALL  TTYIN(LINE) 

CONTINUE 

IFUFLG3.EQ.  l)GO  TO  1044 
CALL  TEST (1, 1ST, LOG) 

IF ( 1ST . LT , 0 ) GO  TO  1043 

GO  TO  1111 

CONTINUE 

CALL  SDISP (1X1(1) ,IY1<1> ,IDX<i> ,IDY<1) ,IC1<1) , NPD ,NMP , IN IPT ) 

IF (L.GT . 19)L=0 

L=L+1 

DO  1100  I 1=1, NSI 
CALL  TEST  < 1 , 1ST , LOG ) 

IF< ( INZi . EQ . 2) . OR . < INZI . EQ . 3  > )  GO  TO  1070 


DISPLAY  UNDEFORMED  SHAPE 

CALL  XDISP ( 32767 , NPD ) 

IF(IDZ.EQ.O)  GO  TO  1090 

DISPLAY  ONE  POSITION  OF  DEFORMED  SHAPE 


CALL  XDISP < IDIV(L) ,NPD) 

IF  < 1ST . GE . 0 ) GO  TO  1110 

IF< (INZI  EQ. 1) .OR . <INZ1 .EQ.3> >  GO  TO  1050 
CONTINUE 
GO  TO  1045 
CALL  TDISP 

PROCESS  NEW  COMMAND 


CONTINUE 
CALL  CODE 
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0179  READ < LINE, i 120 >IL 

0180  IF<ICOMM.EQ.12345)GO  TO  1115 

0181  C 

0182  C  PUT  A  CHECK  FOR  ANY  COMMANDS  THAT  ARE  NOT  TO  BE 

0183  C  EXECUTED  UNLESS  ENOUGH  SET-UP  IS  PRESENT 

0184  DO  1112  1=1,12 

0185  IF ( IL . EQ , ICMMD ( I ) > GO  TO  1139 

0186  1112  CONTINUE 

0187  IFdL.EQ,  ICMMD<17)  >GO  TO  1139 

0188  C 

0189  1115  CONTINUE 

0190  1120  FORMAT < A2 ) 

0191  CALL  CODE 

0192  READ  <  LINE1 , *  > IP AR 1 , IPAR2 , IPAR3 , IPAR4 , IPARS , IP AR6 

0193  C*********************************************************************** 

0194  C  MONITOR  COMMAND  TABLE 

0195  C*********************************************************************** 

0196  1130  IFLAG=0 


0197  CALL  RWCOM(l) 

0198  IFdL.EQ. 2H#*)G0  TO  1000 

0199  NCMMD=26 


0200 

DO  1138  1=1 ,NCMMD 

0201 

IFdL.EQ. ICMMDd)  )GO  TO  1144 

0202 

1138 

CONTINUE 

0203 

1139 

WRITE <1,1140) 

0204 

1140 

FORMAT </, "ERROR-ILLEGAL  COMMAND") 

0205 

GO  TO  1000 

0206 

1144 

IFd.GT.i0) GO  TO  1146 

0207 

GO  TO  <2280,2250,2250,2500,2500,3000,3000,4500,4500,4000) ,1 

0208 

1146 

1=1-10 

0209 

IF  < I . GT , 1 0 )GO  TO  1148 

0210 

GO  TO  <4000,7000,6000,6500,5000,9995,1200,1200  ,9002,9001)  ,1 

0211 

1148 

1=1-10 

0212 

GO  TO  <9001 ,9003,9008,8000 ,7500 ,9011 ), I 

0213 

1200 

CONTINUE 

0214 

IFdPARl.EQ.37) GO  TQ  9005 

0215 

IF  < IPAR 1 . EQ . 1 0 ) GO  TO  9006 

0216 

IF < IPAR 1 , EQ . 6 ) GO  TO  9007 

0217 

GO  TO  1139 

0218 

C 

0219 

C 

JUMP  HERE  FOR  DISPLAY  COMMAND  ERROR 

0220 

C 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 


1900  CONTINUE 

UR ITE  < 1,1902) IBELL 

1902  FORMAT  </, "ERROR -DISPLAY  REQUIRES  FURTHER  INPUT  ", A2 ,/ ) 

GO  TO  1000 

1910  CONTINUE 

WRITE(i,1912) IBELL 

1912  FORMAT < /, "ERROR -NO  CURRENT  DISPLAY  ", A2 ,/ > 

GO  TO  1000 

C  VIEW  COMMAND 

C 

C  CALCULATE  THE  MATRIX  TO  CONVERT  GLOBAL  X,Y,Z  TO 

C  SCREEN  X , Y  OF  THE  5460  DISPLAY  UNIT 

C*********************************************************************** 

2250  CONTINUE 

IF< IFLG3 . EQ . 0 )GO  TO  1910 
IF ( IPAR1 . EQ . -9999) IP AR 1=1 
IF < IPAR2 , EQ . -9999 ) IPAR 2=1  . 


r 


_ _ ±  . 


0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

024'/ 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 

0281 

0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 


IF(IPAR3.EQ.-9999)IPAR3=i 

Z1=IPAR 1 

Z2=IPAR2 

Z3=IPAR3 

XL=SQRT(Zi*Zi+Z2*Z2+Z3*Z3> 

ST=Z2/XL 

CT=SQRT<Zl*Zi+Z3#Z3>/XL 
CP  =  0  . 

SP  =  i  . 

XL=Zi*Zl+Z3#Z3 

IF  (XL.LT  .  0  .  000DGQ  TO  2270 

XL=SQRT(XL) 

SP=Z3/XL 

CP=Zi/XL 

C 

C  THE  FOLLOWING  CODE  ORIENTS  THE  Y  DIRECTION 

C  OF  THE  GLOBAL  COORDINATES  TO  THE  Y  DIRECTION 

C  OF  THE  5460  SCOPE  UNIT 

C 

2270  A< 1 , 1 ) =+SP 
A < 1,2) =0.0 
A< 1 ,3)=~CP 
A<2,1 )=-ST*CP 
A  <  2 , 2 ) =CT 
A(2,3>=-ST*SP 

IF ( IP AR4 . EQ . -9999 ) GO  TO  2364 
GO  TO  1000 

C*********************************************************************** 
C  DISPLAY  COMMAND 

C********************************************************************** 

2280  CONTINUE 
C 

C  CHECK  TO  SEE  IF  DATA  SET  HAS  BEEN  ENTERED 

C 

IF ( ICOMM . NE . 12345 ) GO  TO  1900 
IFINUMPT .EQ. l)GO  TO  1900 
IF ( ICON . EQ . 0 ) GO  TO  1900 
IF ( NCOM , EQ , 0  > GO  TO  1900 
IF < I PAR  1+9999 )  230  0,2290,230  0 
2290  INZi=INZi+i 

IF ( INZi . GE . 4 )  INZ1=0 
IF ( NMP .EQ,0)INZi=0 
GO  TO  1000 

C*********************************************************************** 
2300  CONTINUE 

IF< IABS ( I PAR  1 ) . GT . NM>GO  TO  1138 

IF(IPARl.LT.O) IFLG3=0 

IF< IPAR1 . LT . 0  > NMP 1  =  0 

IF(IPAR1 .LT.0)IPAR1=-IPAR1 

NMP*IPAR 1 

INZ1»2 

IF<NMP.EQ.0)INZ1=0 

C 

C  CHECK  FOR  PARTIAL  DISPLAY 

C 

IF  < IPAR2 . EQ . -9999) IFLG4»0 

IF ( IPAR2 . EQ . -9999) GO  TO  2306 

IF( < I PAR 2 .LT. 1) .OR. (IPAR2.GT.4))G0  TO  1900 

IFLG4*1 

C  A-239 
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0299 

0300 

0301 

0302 

0303 

0304 

0308 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0318 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0328 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0338 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 


C  SET  UP  IZ  ARRAY  ACCORDINGLY 

C 

IZ< 1>=IPAR3 
IZ(2>=IPAR4 
IZ(3)=IPAR5 
IZ(4)=IPAR6 
IZi=IPAR2+i 
DO  2302  I=IZi,10 
2302  IZ.(I)=0 
IF  L=0 

DO  2304  1=1,10 

2304  IF(<IZ(I) .LT.O) .OR.(IZ<I) . GT . NCOM) ) IFL=1 
IF(IFL.EQ.l)GO  TO  1900 
IFL=0 

GO  TO  2310 
2306  CONTINUE 

DO  2308  1=1,10 

2308  IZ(I)=I 
2310  CONTINUE 
C 

IKZ=i 

IF ( NMP . EQ . 0  > IDZ  =  0 
IF<NMP .GT . 0 )IDZ=1 
C 

IF (NMP 1 . EQ . NMP ) IKZ=0 
IF ( NMP .EQ. 0)IKZ=0 
NMP i=NMP 

IF  < IFLG4 . EQ . l)IKZ=i 
IF  < IFLG3 . EQ . 0 ) IKZ=i 
C 

IF ( IKZ . EQ . 0 )GQ  TO  1000 
IF ( IFLG3 . EQ . 1 )GO  TO  2364 

C*****)M*****]M********************>M*****************************t****t 

C  CALCULATE  THE  LONGEST  VECTOR  IN  X,Y,Z  SPACE 

C  IN  ORDER  TO  INITIALLY  SCALE  THE  DISPLAY 

C******iM*****iM**************:M********¥************#*************#***ik 

2360  CONTINUE 
SCALU=0 . 0 
SCALD® 0 . 0 
XMAX*-1E30 
YMAX=-1E30 
ZMAX=-1E30 
XMIN»1E30 
YMIN=1E30 
ZMIN*1E30 
RMAX=i  .  0 

DO  2363  1=1 , NUMPT 

CALL  RWCMC< 1 ,XXA(2 , 1 ) ,LQ( 1 ) ,NMP , I , IP , IBM ,RMAX , 1 ) 

CALL  RUJCrtC ( 2 , XXA  (2,2)  ,L0(2>  , NMP  ,  I ,  IP  ,  IBM ,RMAX  ,  1 ) 

CALL  RWCMC<3 ,XXA<2 ,3) , L0(3) , NMP , I , IP , IBM ,RMAX , 1 ) 

CALL  RUCOR  < I , XXA < 1 , 1 ) ,XXA(i,2) ,XXA< 1 ,3) , ICM, 1 ) 

IZ5=IPT  CM ( I ) 

IF( (IZS.LT. 1) .OR . (IZ5.GT.NC0M) )GO  TO  2363 
C 

C  ONLY  CONSIDER  POINTS  WITH  REQUESTED  COMPONENTS 

C 

DO  2371  I IR»1 , NCOM 
IFUZaiR)  .EQ.  IZ5>G0  TO  2372 
2371  CONTINUE 


GO  TO  2363 
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0359  2372  CONTINUE 

0360  IF ( IC< 125 ) . NE , 0  >  GO  TO  2361 

0361  C*********************************************************************** 

0362  C  CONVERT  CYLINDER  COORDINATES  TO  RECTANGULAR 

0363  C 

0364  C*************************************************************** 

0  36S  C 

0366  C  XXX<  ,  )  =  LOCAL  ORIGINS  WITH  RESPECT  TO  GLOBAL 

0367  C  ORIGIN  AS  INPUTTED  IN  Y0091 

0368  C  NEEDED  TO  CREATE  ABSOLUTE  GEOMETRY 

0369  C 

0370  C  XXA ( 1 ,  >  =  LOCAL  POINT  COORDINATES 

0371  C  XXA ( 2 ,  >  =  LOCAL.  MODAL  COEFFICIENTS 

0372  C 

0373  C  YYA< 1 ,  >=  GLOBAL  POINT  COORDINATES 

0374  C  YYA(2,  >  =  GLOBAL  MODAL  COEFFICIENTS 

0375  C 

0376  C*************************************************************** 

0377  Zi=XXA(2,l> 

0378  Z2=XXA(i, 2) /S7, 29577951 

0379  Z3=C0S(Z2) 

0380  24=SIN(Z2) 

0381  Z5=XXA(l,i) 

0382  XXA (2,1) =Zi*Z3~XXA (2,2) *24 

0383  XXA  (2,2)  =Zi*Z4+XXA  (2,2)  *7.3 

0384  XXA( 1 , 1 )=Z5*C0S(Z2) 

0385  XXA(1,2)=Z5*SIN(Z2) 

0386  C 

0387  C  CONVERT  FROM  LOCAL  TO  GLOBAL  COORDINATES  USING 

0388  C  COMPONENT  ORIGINS  AND  ORIENTATIONS 

0  389  C 

0390  2361  DO  2362  K=i,2 

0391  DO  2362  11=1,3 

0392  IZi =1 ABS (IX(II,IZ5)) 

0393  Zl=IX(II,IZ5)/IZi 

0394  Z3=XXX(II ,IZ5) 

0395  IF (K . EQ . 2  >Z3=0 

0396  2362  YYA ( K , I I ) =XXA( K , IZI ) *Zi+Z3 

0397  C 

0398  C  FIND  MAX  AND  MIN  POINTS  TO  COMPUTE  DISPLAY  CENTER 

0399  C 

0400  XMIN=AMINi ( XMIN,YYA(i,i>) 

0401  XMAX=AMAXi ( XMAX , YYA ( 1 , 1 )  ) 

0402  YMIN=AMIN1 <YMIN,YYA( 1 ,2) ) 

0403  YMAX=AMAX1 <  YMAX , YYA( 1 , 2 )  ) 

0404  ZMIN=AMIN1 (ZMIN,YYA( 1 ,3) > 

0405  ZMAX=AMAX1 ( ZMAX ,YYA<1 ,3) ) 

0406  C*********************************************************************** 

0407  C  SF ( 1 ) “MAXIMUM  UNDEFORMED  VECTOR  FROM  GLOBAL  ORIGIN 

0408  C  SF ( 2 ) “MAXIMUM  DEFORMED  VECTOR  FROM  GLOBAL  ORIGIN 

0409  C*********************************************************************** 

0410  C 

0411  C  CALCULATIONS  ARE  FROM  (0,0,0)  NOT  THE  DISPLAY  ORIGIN 

0412  C 

0413  C*********************************************************************** 

0414  Z3«SQRT (YYA(2,i) **2+YYA ( 2,2)**2+YYA(2,3) **2 ) 

0415  SCALD=AMAX1 (SCALD , Z3 ) 

0416  Z3»SQRT(YYA(l,i)**2+YYA(i,2)**2+YYA(l,3>**2> 

0417  SCALU*AMAXi (SCALU , Z3> 

0418  2363  CONTINUE 
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0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

0438 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0448 

0449 

0450 

0451 

0452 

0453 

0454 

0455 

0456 

0457 

0458 

0459 

0460 

0461 

0462 

0463 

0464 

0465 

0466 

0467 

0468 

0469 

0470 

0471 

0472 

0473 

0474 

0475 

0476 

0477 

0478 


C 

C  COMPUTE  "0"  VECTOR  ACTUAL  3-D  DISPLAY  ORIGIN 

C 

0(1 )=(XMAX+XMIN>/2 . 

0( 2  >  =  (  YMAX+YMIN ) /2  . 

0( 3 ) = ( ZMAX+ZMIN ) /2 . 

C 

C  USE  SCALE  FACTORS  TO  MAKE  DEFORMED  AND  UNDEFORMED 

C  VECTORS  AS  LARGE  AS  POSSIBLE 

C 

IF ( SCALU , EQ ,0.0) SC ALU- 1 . 0 
IF <  SCALD , EQ , 0 . 0 ) SCALD= 1 . 0 
SCALU=SCALE/SCALU 
SCAL.D=SCALE/SCALD 

C  START  OF  ACTUAL  DISPLAY  CALCULATION 

C#**#*#**##**#***  #*##*)*#*  **###*#*#*#*#***#*#*# 

2364  NPD=0 

SF ( 1 ) =SCALU 
SF(2)=SCALD 
CALL  K YBD <  2HCL , 0 ) 

CALL  K YBD ( 2HCL > 1 ) 

2365  DO  2366  I=*1,NUMPT 
1X1(1 >=32760 

2366  IY1 ( I )=32760 
XMAX=-1E30 
YMAX=-iE30 
XMIN=1E30 
YMIN-1E30 
XAVG=0 , 0 
YAVG=Q . 0 

( j  i(t )(( 3(c  %  %  *  i(t  *  ij(  )(c  3((  j|(  .4(  ^  ^  1 1 5(c  *  ])( f  ^  ^  1 ^  ^  t  ^  t  ^  ^  ^  ^  ^ 

C  DISPLAY  LOOP 

RMAX=1 . 0 

DO  2380  J=i , ICON 
CALL  RWCON ( J , IZ3 , ION , i > 

IZ6=IZ3 

IZ3=IABS(IZ3> 

IF( (IZ3.EQ. 0) .OR . (IZ3.GT.NUMPT) ) WRITE (NU, 2374) 

2374  FORMAT(/, "ERROR-CONNECTIVITY  FILE”) 

IF< (IZ3.EQ.0) .OR . (IZ3.GT.NUMPT) >IFLG3=0 

IF( (IZ3.EQ. 0) ,OR . (IZ3.GT .NUMPT) )GO  TO  1000 

CALL  RWCOR (IZ3,XXA(l,l),XXA(i,2) ,XXA(t,3) ,ICM,i> 

IZ5=IPTCM(IZ3) 

IF( ( IZ5  LT. 1) .OR. (IZ5.GT.NC0M))G0  TO  2380 

DO  2367  I I =1 , NCOM 

IFdZ(II)  .EQ.  IZ5)  GO  TO  2369 

2367  CONTINUE 
GO  TO  2380 

C 

C  THE  COMPONENT  NUMBER  (IZ5)  IS  TO  BE  INCLUDED  IN  THE 

C  NEW  DISPLAY 

C 

2369  NPD=»NPD+i 

IC1 (NPD ) =IZ6 

IF((  IXKIZ3)  ,NE.  32760)  .AND.  <IYi(IZ3>  .NE.  32760)  >  GO  TO  2380 
CALL  RWCMC(l,XXA(2,i> ,LO ( i > , NMP , IZ3 , IP , IBM ,RMAX , i > 

CALL  R WCMC ( 2 , XXA (2,2) , LO ( 2 > , NMP , IZ3 , IP , IBM ,RMAX , 1 > 

CALL  R WCMC (3, XXA (2, 3) ,L0(3> ,NMP , IZ3 , IP , IBM, R MAX ,  1 ) 
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0479 

0480 

0481 

0482 

0483 

0484 

0485 

0486 

0487 

0488 

0489 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0518 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

0533 

0534 

0S35 

0536 

0537 

0538 


1FUCUZ5)  .NE.O)  GO  TO  2370 
C 

C  CONVERTS  CYLINDRICAL  COORDINATES  TO  RECTANGULAR 

C 

21=XXA<  2 , 1 ) 

Z2=XXA<  i  , 2)/57 . 29577951 
Z3=C0S<Z2) 

Z4=SIN(Z2) 

Z5=XXA< 1,1) 

XXA<2,i)=Zl*Z3-XXA(2,2>*Z4 
XXA <  2 , 2 ) =Zi*Z4+XXA ( 2 , 2 ) *Z3 
XXA<1,1 >=Z5*C0S<22) 

XXA<1 ,2>=ZS*SIN<Z2> 

C 

C  CONVERTS  LOCAL  COORDINATES  TO  GLOBAL 

C  ADJUSTMENT  TO  DISPLAY  ORIGIN 

C 

2370  DO  2375  1=1,2 
DO  2375  11=1,3 
IZ1=IABS( IX(II ,IZ5) ) 

Zi“IX<II,IZ5>/IZi 
Z2=0 (II) 

Z3*XXX<II,IZS> 

IF  <  I  .  EQ .  2  )Z3=*0 
IF ( I . EQ . 2 )  Z2=0 

2375  YYA< I , I I )=XXA< I , IZ1 ) *Zi+Z3-Z2 
C 

C  CONVERTS  GLOBAL  X,Y,Z  COORDINATES  TO  X,Y  SCREEN 

C  COORDINATES  OF  THE  5460  DISPLAY  UNIT 

C  WITH  THE  PROPER  VIEWING  POSITION 

C 

DO  2380  1=1,2 

X=( A ( 1 , 1 ) #YYA( I , 1 ) +A( 1 ,2>*YYA< I ,2) +A( 1 ,  3  >*YYA< 1,3)) #SF ( I ) 
Y=(A(2,i)*YYAU,l  M A< 2 , 2>*YYA< I , 2 >+A( 2 , 3 > *YYA < I ,3 > >*SF < I > 
X=AMAX1(X, -32765. ) 

Y= AMAX 1 <  Y , -327  65 . ) 

X=AMIN1<X, 32765, ) 

Y=AMIN1(Y, 32765, > 

IF < I . EQ . 2 ) GO  TO  2376 
XMAX=Ai1AXl  <  XMAX ,  X ) 

XMIN=AMIN1(XMIN,X> 

YMAX=AMAXi ( YMAX , Y ) 

YMIN=AMINi <  YMIN , Y ) 

2376  CONTINUE 
IF(I.EQ.1)IX1<IZ3)=X 
IF(I .EQ. 1 )IY1(IZ3)=Y 
IF(I .EQ.2)IDX<IZ3)=X 
IF(I.EQ.2)IDY<IZ3)=Y 

2380  CONTINUE 
C 

C  CENTER  DISPLAY 

C 

IF ( IFLG6 . EQ . 1 ) GO  TO  2382 
XAVG=(XMAX+XMIN)/2. 

YAVG*(YMAX+YMIN)/2. 

DO  2378  I* l ,NUMPT 
IXKI)  =FLOAT  <  IXi  ( I  > )  -XAVG 
IY1 ( I >=FLQAT ( IY1 ( I ) >-YAVG 
2378  CONTINUE 
2382  CONTINUE 
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f  0539 

IFLG6=0 

j  0540 

C 

1  0541 

C 

MAXIMIZE  DISPLAY  TO  80  % 

[  0542 

c 

I  0543 

XMAX=ABS<XMAX~XAVG> 

I  0544 

XMIN=ABS(XMIN~XAVG) 

I  0545 

YMAX=ABS <  YMAX-YAVG ) 

1  0546 

YMIN=ABS( YMIN-YAVG) 

|  0547 

XMAX=AMAXi ( XMAX , XMIN , YMAX  ,YMIN> 

I  0548 

c 

I  0549 

Zi=26Q00 . /XMAX 

[  0550 

c 

1  0551 

c 

CALCULATE  DIVISORS  USED  FOR  DISPLAY  POSITIONS 

|  0552 

c 

OF  EACH  FRAME 

1  0553 

c 

i  0554 

2390 

»R=~. 314159265 

!  0555 

R=-DR 

0556 

DO  2400  1-1,20 

0557 

R-R+DR 

0558 

1DIVU  >=IFIX(i . /<SFl*COS<R) ) ) 

0559 

2400 

CONTINUE 

0560 

C 

0561 

C 

IDIV( 21 )=NPD  ONLY  SO  THAT  THE  VARIABLE 

0562 

C 

NPD  WILL  BE  AVAILABLE  IN  Y  94 

0563 

C 

1 

.  0564 

IDIV  <21 ) =NPD 

0565 

C 

I  0566 

IFLG3=i 

0567 

IKZ=1 

0568 

IF  < IFLG5 . EQ . 1 >GO  TO  2602 

0569 

C 

0570 

IF  < NMP . EQ . 0  >GQ  TO  2452 

0571 

IF < ISSW( 14) . LT . 0 )GO  TO  2452 

0572 

CALL  IDSW(NU, 0  > 

t  0573 

WR ITE<NU, 2450 >FRQ< NMP) 

0574 

2450 

FORMAT < / ,F12 . 4 , ”  HERTZ”,/) 

0575 

2452 

CONTINUE 

0576 

GO  TO  2510 

0577 

C 

0578 

C 

EXPAND  COMMAND 

0579 

C 

0580 

250  0 

Zi=IPARl 

0581 

Z1=Z1/1Q0  . 

0582 

2510 

SF< 1 ) =Z1#SF ( 1 ) 

0583 

SF(2)=SF<2)*Z1 

0584 

IFLG8-0 

0585 

DO  2600  1=1 ,NUMPT 

0586 

Xi=FLOAT<IXi<I>>*Zl 

0587 

Yt=FLOAT<IYi(I))*Zi 

0588 

DX=FLOAT < IDX< I ) ) 

0589 

DY=FLOAT ( IDY  < I )  ) 

0590 

Xi=AMINi<Xi, 32765. > 

0591 

Yi=AMINl<Yl, 32765. )  j 

0592 

DX=AMIN1<DX, 32765. )  I 

0593 

DY=AMIN1 <DY, 32765. )  I 

0594 

X1»AMAX1(X1 ,-32765. >  1 

0595 

Yi=AMAXl(Yi ,-32765. >  I 

0596 

DX=AMAXi <DX, -32765. )  1 

0597 

DY=AMAX1 <DY, -32765. >  1 

0598 

IX1<I)»X1  .  ...  1 

>»■■■— ..J .. _ ’ 
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0599  IY1 < I ) =Y1 

0600  IDX( I >=DX 

0601  1DY  < I ) “DY 

0602  IF ( ( DX . EQ . 3276S . ) . OR  .  <DX .EQ . -32765 . ))IFLG8=i 

0603  IF  (  (I>Y  .EQ.  32765,  )  .OR  .  (DY  .  EQ  .  -32765  .  mFLG8=l 

0604  2600  CONTINUE 

0605  I F ( I FLG8 . EQ . II WR I T  E ( NU , 2  698  > I BELL 

0606  2698  FORMAT </, "ERROR-DISPLAY  OVERFLOW" ,A2> 

0607  2602  CONTINUE 

0608  IF  LG5-0 

0609  GO  TO  1000 

0610  C 

0611  C  MOVE  COMMAND 

0612  C 

0613  3000  IF ( IP AR2 . EQ . -9999 )  GO  TO  3070 

0614  IZi-FLOAT ( IPAR 1 ) *320 . 

0615  IZ2-FL0AT  <IPAR2>*320. 

0616  DO  3050  I=1,NUMPT 

0617  IXl(I)=IXl<I)+IZi 

0618  IYl<I)  =  IYiU>+IZ2 

0619  3050  CONTINUE 

0620  C 

0621  C  MOVE  THE  DISPLAY  IPAR1  X  UP  AND  IPAR2  %  RIGHT 

0622  C  IF  THE  PARAMETERS  ARE  NEGATIVE  ,  GO  THE 

0623  C  OPPOSITE  DIRECTION 

0624  C 

0625  GO  TO  1000 

0626  3070  CALL  RWCOR < IPAR 1 , XXA 1 , 1 ) , XXA( 1 ,2 ) , XXA ( 1 , 3) , ICM , 1 ) 

0627  IZ5=IPTCM<IPARi) 

0628  IF< IC( IZ5 ) . NE . 0 )  GO  TO  3100 

0629  Z5=XXA(i,i) 

0630  Z2*XXA<i,2) 

0631  Z2=Z2/57. 2957791 

0632  XXA< 1 , 1 >=Z1*C0S(Z2> 

0633  XXAC 1 , 2)=Zi*SIN(Z2) 

0634  3100  DO  3200  1*1,3 

0635  IZ1  =  IABS(IXU,IZ5>> 

0636  Z4=IX< I ,  I Z5 ) / I Z 1 

0637  3200  0(I)=XXA<1,IZ1)*Z4+XXX(I>IZ5) 

0638  C 

0639  C  IFLG6  «  1  INHIBITS  AUTO  CENTERING 

0640  C 

0641  IFLG6=i 

0642  GO  TO  2364 

0643  C 

0644  C  AMPLITUDE  COMMAND 

D  64S  C 

0646  4000  IFdPARl  ,  LE  .  0  > IP AR  1*100 

0647  Zi  =  IABSaPARl ) 

0648  SFi*SF 1*Z1/10Q , 

0649  C 

0650  C  IFLG5  =  l  INHIBITS  AUTO  EXPANSION 

0651  C 

0652  IFLG5*i 

0653  GO  TO  2390 

0654  C 

0655  C  ROTATE  COMMAND 

0656  C 

0657  4500  Zi»IPARi 

0658  Zi*Zl/57. 29577951 
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0659  Z2=C0S(Zi) 

0660  Z3=SIN(Z1) 

0661  DC)  4600  I=1,NUMPT 

0662  Z4=IX1 ( I ) 

0663  Z5=IDX ( I > 

0664  1X1(1 >=Z2#Z4-Z3#FLDAT ( IY1 ( I ) > 

0665  1DX(  I >=Z2*ZS~Z3*FL0AT(IDY(I) ) 

0666  IY1 ( I )=Z2*FL0AT( IY1 ( I ) )+Z3*Z4 

0667  4600  IDY(I)=Z2*FL0AT(IDY(I))+Z3*Z5 

0660  GO  TO  1000 

0669  C 

0670  C  CONVOLUTION  COMMAND 

0671  C 

0672  5000  IANSPD=IPARi 

0673  GO  TO  1000 

0674  C 

0675  C  STORE  AND  READ  SET-UP  AND  MODAL  DATA  TO  AND  FROM  DISC 

0676  C 

0677  C  READ 

0678  C 

0679  6000  CALL  K YBD ( 2HMS , 35 , 1 > 

0680  CALL  KYBD(2HMS,25) 

0681  IFdPARl  .EQ. -9999)00  TO  9011 

0682  IF ( ( IPAR 1 . GE . 0 ) .AND. ( IPARi . LE . 80 0 ) ) CALL  K YBD ( 2HMS , 31 , IP AR 1 ) 

0683  IF< (IPARi .LT . 0) .OR . (IPARI . GT .800) )GO  TO  6800 

0684  CALL  K YBD (2HMS , 1 1 , 0  ) 

0685  CALL  K YBD ( 2HMS , 31 , -1 , 1 > 

0686  CALL  RWCOM(-i) 

0687  IF (ICOMM.NE. 12345)00  TO  6800 

0688  CALL  K YBD ( 2HMS , 1 1 , ION ) 

0689  CALL  RWCOM(O) 

0690  IF ( I COMM . NE , 12345) GO  TO  6800 

0691  NMP 1=0 

0692  NMP=0 

0693  IFLG3=0 

0694  IR J=ICM 

0695  CALL  K YBD ( 2HMS , 1 1 > IR  J  > 

0696  IR J=IR J-i 

0697  6100  DO  6200  I=IBM,IRJ 

0698  6200  CALL  KYBD(2HMS , 1 1 , I > 

0699  CALL  K YBD ( 2HMS , 35 , 1 ) 

0700  CALL  K YBD ( 2HMS , 15 ) 

0701  WRITE(i,i235HIT<l>  ,1  =  1,5) 

0702  1235  FORMAT (/, "TEST  ID  IS" ,23X,5A2) 

0703  GO  TO  1000 

0704  C 

0705  C  STORE 

0706  C 

0707  6500  CALL  KYBD(2HMS ,35,1) 

0708  CALL  KYBD( 2HMS , 25 ) 

0709  IFCIPARl .EQ.-9999)G0  TO  9011 

0710  IF ( ( IPAR 1 . GE . 0 ) .AND. ( IPARI . LE . 800 ) )CALL  K YBD( 2HMS , 31 , IPAR 1 ) 

0711  IF( (IPARi .LT. 0) . OR. (IPARI. GT.800))GO  TO  6800 

0712  IL=2H## 

0713  CALL  RWCOM(i) 

0714  IH(6)*52525B 

0715  IH<9)*10 

0716  IH(10)*IT(1) 

0717  IH( 11 )*IT (2) 

0718  IH( 12)®IT (3)  . 
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0719  IH(13)=IT (4) 

0720  IH<14)=IT<5) 

0721  IH  <  34 ) =2H7i 

0722  CAi_L  KYBD(2HMS  ,21 , ION) 

0723  CALL  KYBD(2HMS,2i , ICM) 

0724  IH(34)=2H72 

0725  IRJ=ICM-i 

0726  IPARi=IPARl+2 

0727  DO  6700  I=IBM,IR3 

0728  IPAR1=IPAR1+1 

0729  6700  CALL  K YBD ( 2HMS , 21 , 1 ) 

0730  WR ITE  < 1 , 670 1 ) IPAR 1 

0731  6701  FORMAT!/, "NEXT  DATA  RECORD  IS  “,I4> 

0732  CALL  K YBD ( 2HMS , 35 , 1 ) 

0733  CALL  KYBD<2.HMS  ,  IS) 

0734  GO  TO  1000 

0735  6800  UR ITE <1 ,6801) 

0736  6801  FORMAT (/ , "ERROR-INVALID  DATA  RECORD") 

0737  NMP 1=0 

0738  NMP  =  0 

0739  I FLG3=0 

0740  IC0MM=12345 

0741  GO  TO  1000 

0742  C 

0743  C  AUTO  SCALE  OF  DISPLAY 

0744  C 

0745  7000  Zi=IPAR 1 

0746  IF(Z1.LT.2000  >GO  TO  7100 

0747  IF!  Zi . GT . 50 00 >GO  TO  7100 

0748  SCALE=Z1*10. 

0749  7100  CONTINUE 

0750  GO  TO  1000 

0751  C 

0752  C  ENABLE  POINT  LABELING  FOR  PLOT 

0753  C 

0754  7500  CONTINUE 

0755  IF ( IPAR 1 ,  EQ. -9999) IPAR 1=100 

0756  IF  < IPAR 2 . EQ . -9999 ) IPAR 2=100 

0757  IF ! IP AR3 . EQ .-V999)IPAR 3=100 

0758  IF UPAR4.EQ. -9999) IPAR 4=1 

0759  IF ( IPAR5 , EQ . -9999  > IP AR5=25Q 

0760  IDIVT22)=IPAR1 

0761  1DIV!23)=IPAR2 

0762  IDIV!24)=IPAR3 

0763  IDI V !  25  >  =  IP AR4 

0764  IDIV!26)*IPAR5 

0765  IDIV<2/')  =  1 

0766  GO  TO  1000 

0767  C 

0768  C  INPUT  POINT  TO  BE  INTENSIFIED 

0769  C 

0770  8000  CONTINUE 

0771  INTPT*IPARi 

0772  GO  TO  1000 

0773  C*******iM)M*********************************************************** 

0774  C  EXIT  TO  OTHER  OVERLAYS 

0775  C********************************************************************** 

0776  9001  I-i 

0777  GO  TO  9900 

0778  9002  I“2 
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0779 

GO  TO  9900 

0780 

9003 

1=3 

0  781 

GO  TO  9900 

07821 

9004 

1=4 

0783 

GO  TO  9900 

0784 

9005 

1=5 

0785 

GO  TO  9900 

0786 

90  06 

1  =  6 

0787 

GO  TO  9900 

0788 

9007 

1=7 

0789 

GO  TO  9900 

079  0 

9008 

1=8 

0791 

GO  TO  9900 

0792 

9011 

I  =  ii 

0793 

GO  TO  9900 

0794 

9900 

CONTINUE 

0795 

IFLAG=i 

0796 

CALL  RUCOM(l) 

0797 

CALL  K  YBD  ( 2HMS , 38 , I > 

0798 

CALL  OVLD ( 9 ) 

0799 

9995 

CONTINUE 

0800 

IL=2H« 

0801 

IF( ICOMM ■ EQ , 12345)CALL  RUCOM(l) 

0802 

CALL  K YBD ( 2HBS  > IBS , 0  > 

0803 

RETURN 

0804 

END 

0805 

END* 

A- 248 


♦Y908  T = 0 0 0 0 4  IS  ON  CR00103  USING  000126  BLKS  R=0219 


0001 
0002 
0003 
0  0  04 
0005 
0006 
0007 
0  0  08 
0009 
0010 
0011 
0012 
0  013 
0014 
0015 
0016 
0017 
0  018 
0  019 
0020 
0021 
0022 
0023 
0  024 
0025 
0026 
0  027 
0028 
0029 
0030 
0  031 
0  032 
0033 
0  034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0  042 
0  043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0  053 
0054 
0  055 
0056 
0057 
0  058 


FTN4 

SUBROUTINE  YO 009 ( INTO! , IPAR ) 

C 

C  THIS  PROGRAM  IS  STORED  UNDER  $Y908 

C 

C *## * #*#*### * ### * * ***** * ** * ***** # ##** * * * * * # *  * 4 * # # * * ## ********** * ***# * ** * 

C 

C  PROGRAMMER:  R . J . ALLEMANG 

C  MAIL.  LOCATION  #  72 

C  UNIVERSITY  OF  CINCINNATI 

C  CINCINNATI,  OHIO  45221 

C  513-475-6670 

C 

C  REVISION  DATE:  DEC  17,  1979 

C 

C*********************************************************************** 

DIMENSION  IPAR  <  6)  , LINE (36)  , LINE! (35)  ,IZ<10>  ,ING)<6> 
i,IDIV(l) , ICMMD  <  24 ) ,IH(1) ,1X1(1) ,IYi(l) ,IDX(i) ,IDY(i) 

2 , ICi < 1 ) , IPTCM< 1 ) , LABEL ( 20) ,  IPOINTd) 

EQUIVALENCE  ( LINE < 2 ) , LINEi ) 

COMMON  ICOMM,MANRE,MDVA, BETA, IBLS, 11(5) ,ID(3> ,IP,NUMPT 
1 ,NM,ICON,NCOM,XXX<3, 10  ) ,IX(3,10),IC(10) ,NMP ,XR(3) ,A(2,3) 

2, 0(3), IB (10) , NCN (10) ,SF<2> ,XXA(2,3) ,YYA(2,3) 

3 ,  FSHFT  ,  DF  ,  MCF  , I2R , IL , IP AR 1 , IP AR2 , IP AR3 , 1PAR4 , IP AR5 , IP AR6 
4 , I FLAG , NS , NE ,RMM< 1 0 ) , FRQ < 1 0 > , ZETA < 1 0  ) 

EXTERNAL  HDR8 , DTADO , NMAX 

DATA  ICMMD/2HD  ,2HV  ,2HX  ,2HEX,2H:  , 

12HM  , 2H_  , 2HR 0 , 2HA- , 2HAM , 

22HCH , 2HSP , 2HX  <  , 

32HX  > , 2HCV , 2H<  ,2HB  ,2HL  , 

42HU  , 2HI  , 2HK  ,2HA+,2H/L, 

52H/./ 

C  UNIVERSITY  OF  CINCINNATI/LEUVEN  MODAL.  ANALYSIS  PROGRAM 

C 

C  MOVIE  PROGRAM 

C*********************************************************************** 

IBELL=7B 

IPAGE=15414B 

CALL  SETAD <  HDR8 , IH , -8 , 0  > 

ICOMM=0 

IBS=1024 

CALL  K YBD  <  2HBS , IBS , 0  ) 

CALL  GET1 ( NMAX , IBLM ) 

ION=IBLM~i 

ICM-ION-1 

IBM*2 

CALL  RWCOM(O) 

C 

C  IF  INITIALIZATION  IS  REQUIRED,  LOAD  Y  91 

C 

IF ( I COMM , EQ . 12345) GO  TO  900 
CALL  KYBD  <  2HMS , 38 , -8 , 1 ) 

CALL  0VLD<9 ) 

900  CONTINUE 

IF ( I FLAG . EQ ■ 1 )GO  TO  1130 

C*********************************************************************** 

C  START  OF  MONITOR  .  „„„ 


I 


i 


0059 

c*************************************#*********************«*********** 

0060 

1000 

WRlTE(l,i010> I BELL 

0061 

1010 

FORMAT  < ,  A2) 

0  062 

I=1SWR( 1776778,0,0) 

0063 

IPAR 1 =-9999 

0064 

IPAR2=-9999 

0065 

IPAR3=-9999 

0066 

IPAR4=-9999 

0067 

IP AR5= -9999 

0068 

IP  AR6=s-9999 

0069 

1020 

DO  1030  1-1,36 

0070 

1030 

LINE  < I ) =2H , , 

0071 

1040 

CALL  TTY IN<  LINE ) 

0072 

1042 

CALL  TEST (1, 1ST, LOG) 

0  073 

IF ( 1ST . LT . 0 )GO  TO  1042 

0074 

CALL  CODE 

0  075 

READ (LINE , 1 120  > IL 

0076 

IF ( ICQMM . EQ . 12345 ) GO  TO  1115 

0077 

C 

0078 

C 

PUT  A  CHECK  FOR  ANY  COMMANDS  THAT  ARE  NOT  TO  BE 

0079 

C 

EXECUTED  UNLESS  ENOUGH  SET-UP  IS  PRESENT 

0080 

C 

0081 

1115 

CONTINUE 

0082 

1120 

FORMAT ( A2) 

0083 

CALL  CODE 

0084 

READ  <  LINE! ,*) IPARi , IPAR2, IPAR3, IPAR4 , IPAR5 , IPAR6 

0  085 

c*********************************************************************** 

0086 

C 

MONITOR  COMMAND  TABLE 

0087 

c*********************************************************************** 

0088 

1130 

IFLAG=0 

0089 

CALL  RWCOM(i) 

0090 

IF ( IL , EQ . 2H*# ) GO  TO  1000 

0091 

NCMMD-24 

0092 

DO  1138  1=1, NCMMD 

0093 

IF< IL . EQ . ICMMD< I ) >GO  TO  1144 

0094 

1138 

CONTINUE 

0095 

1139 

URITE( 1 , 1140 ) 

0096 

1140 

FORMAT</, "ERROR -ILLEGAL  COMMAND") 

0097 

GO  TO  1000 

0098 

1144 

IF ( I . GT . 10) GO  TO  1146 

0  099 

GO  TO  (9004,9004,9004,9004,9004,9004,9004,9004,9004,9004) ,1 

0100 

1146 

1=1-10 

0101 

IF (I . GT . 1 0 )GO  TO  1148 

0102 

GO  TO  (9004,9004,6000,6500,9004,9995,1100,1100,9002,9001),! 

0103 

1148 

1=1-10 

0104 

GO  TO  (9001,9003,3000,9004),! 

0105 

1100 

CONTINUE 

0106 

IF ( IPAR 1 , EQ , 37 )GO  TO  9005 

0107 

IF (IPARi ,EQ.l0)GO  TO  9006 

0108 

IF ( IPAR 1 . EQ . 6 >G0  TO  9007 

0109 

GO  TO  1139 

0110 

C 

Oil! 

C 

ASCII  TEXT  TO  5460  CRT  SCREEN 

0112 

C 

0113 

3000 

CONTINUE 

0114 

IF( IPAR3 . EQ . -9999) IPAR3*5Q0D 

0115 

IF ( IPAR2 . EQ  > -9999 ) IPAR 2=5 00 

0116 

ICC=0 

0117 

IF (IPARI .Eq. -9999) IPAR i«0 

0118 

IF ( IP AR 1 . GT , NM) IPAR 1=0 
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1  0119 

IF ( IPAR 1 ,LT . 0  >GO  TQ  3100 

-  - - 1 

I  0120 

IF ( IPAR 1 . GT . 0 )A1=FRQ( 1PAR1 ) 

1  0121 

IF( < IPARi . GT . 0  > .AND . < IPAR 1 . LE . NM >  > ICC=i 

1  0122 

CALL  CRT(IPAR2,IPAR3,ICC,A1> 

1  0123 

GO  TO  1000 

E  0124 

3100 

CONTINUE 

I  0125 

IPAR1=IABS(IPAR1) 

I  0126 

IF ( IPARi . GT . 820 )GQ  TO  1000 

I  0127 

CALL  KYBD(2HMS, 31, IPARI) 

{  0128 

CALL  K YBD( 2HMS ,11) 

I  0129 

IPNT=IH< 13) 

E  0130 

IF(IH(10) .NE.2HCH)G0  TO  1000 

1  0131 

CALL  TTYIN(LINE) 

I  0132 

3110 

CALL  TEST (1, 1ST, LOG) 

|  0133 

CALL  KDIS(0,i,IPNT,12) 

1  0134 

IF < 1ST , LT . 0 ) GO  TO  3110 

1  0135 

GO  TO  1000 

I  0136 

C 

I  0137 

C 

STORE  AND  READ  SET-UP  AND  MODAL  DATA 

TO  AND  FROM  DISC 

I  0138 

C 

|  0139 

C 

READ 

I  0140 

C 

[  0141 

6000 

CALL  KYBD<2HMS ,35,1) 

i 

I  0142 

CALL  K YBD ( 2HMS , 25 ) 

1 

I  0143 

IF < (IPARI .GE.0) .AND. (IPARi . LE . 800) >CALL 

KYBD(2HMS, 31, IPARI) 

(  0144 

IF' (IPARI .LT . 0) .OR . (IPARi . GT .800) >GO  TO 

6800 

I  |'  0145 

CALL  K YBD ( 2HMS ,11,0) 

j 

I  0146 

CALL  KYBD(2HMS,31 ,-i , 1 ) 

j 

I  0147 

CALL  RWCOM(-i) 

j 

I  0148 

IF ( ICOMM . NE , 12345>G0  TO  6800 

! 

i 

[  0149 

CALL  KYBD(2HMS, 11 , ION) 

j 

I  0150 

CALL  RUCOM(O) 

I  0151 

IF( ICOMM. NE. 12345)GO  TO  6800 

1  0152 

NMP  =  0 

(  0153 

IR J=ICM 

I  0154 

CALL  K YBD ( 2HMS ,11 ,IRJ) 

|  0155 

IR J=IR J-i 

[  0156 

6100 

DO  6200  I=IBM , IR J 

1  0157 

620  0 

CALL  K YBD ( 2HMS ,11,1) 

[  0158 

CALL  K YBD ( 2HMS ,35,1) 

I  0159 

CALL  KYBD(2HMS, 15) 

[  0160 

WRITE (1,1235) (IT (I), 1*1, 5) 

I  0161 

1235 

FORMAT (/, "TEST  ID  IS " , 23X , 5A2 ) 

I  0162 

GO  TO  1000 

1  0163 

C 

1  0164 

C 

STORE 

i  0165 

C 

1  0166 

650  0 

CALL  KYBD(2HMS ,35,1) 

I  0167 

CALL  KYBD ( 2HMS , 25 ) 

|  0168 

IF( (IPARI. GE.0) .AND. (IPARi . LE , 80 0 ) ) CALL 

KYBD(2HMS, 31, IPARI) 

|  0169 

IF ( (IPAR1.LT. 0) .OR . (IPARi .GT .800) ) GO  TO 

6800 

1  0170 

IL*2H#t 

1  0171 

CALL  RWCOM(i) 

(  0172 

IH ( 6 ) “52525B 

K  0173 

IH(9)*10 

I  0174 

IH( 10 )*IT ( 1 ) 

| 

1  0175 

IH(il)-IT<2) 

|  0176 

IH(12)-IT(3) 

I  0177 

IH< 13)*IT<4) 

I  0178 

IH(14)-IT(5> 
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L 

* 

! 

J 

1  0179 

! 

IH(34)=2H7i 

I  0180 

CALL  K  YBD  < 2HMS ,  21 , ION > 

1  0181 

CALL  KYBD(2HMS,2i, ICM) 

1  0182 

IH(34)=2H72 

1  0183 

IRJ=ICM-i 

1  0184 

IPAR 1=IPAR 1+2 

I  0185 

DO  6700  1R J 

f  0186 

IPARi=IPARi+i 

|  0187 

6700 

CALL  K YBD ( 2HMS ,21,1) 

I  0188 

WRITE! 1 ,6701) IPAR1 

I  0189 

6701 

FORMAT!/, "NEXT  DATA  RECORD  IS  ",I4) 

1  0190 

CALL  KYBD!2HMS,35,1 ) 

1  0191 

CALL  KYBD(2HMS , 15) 

I  0192 

GO  TO  1000 

K  0193 

6800 

WRITE! 1 ,6801 > 

I  0194 

6801 

FORMAT (/ , "ERROR-INVALID  DATA  RECORD") 

1  0195 

NMP  =  0 

I  0196 

ICQMM=1 2345  , 

f  0197 

GO  TO  1000  j 

1  0198 

c********************************************************************** 

1  0199 

C 

EXIT  TO  OTHER  OVERLAYS  j 

1  0200 

c  *#**#*##*#*##***#**#*##***###**#*#**#*##*###****#**#******#******##*##  ; 

E  0201 

9001 

1  =  1 

1  0202 

GO  TO  9900 

I  j,  0203 

9002 

1=2 

1  0204 

GO  TO  9900 

1  !  0205 

9003 

1=3 

1  0206 

GO  TO  9900 

|  0207 

9004 

1=4 

|  0208 

GO  TO  9900 

[  0209 

9005 

1=5 

I  3210 

GO  TO  9900 

E  0211 

9006 

1  =  6 

0212 

GO  TO  9900 

0213 

9007 

1=7 

0214 

GO  TO  9900 

[  0215 

99  0  0 

CONTINUE 

i  0216 

IFLAG=i 

f  0217 

CALL  RWCOM(i) 

[■  0218 

CALL  KYBD! 2HMS ,38,1) 

0219 

CALL  0VLD<9> 

0220 

9995 

CONTINUE 

0221 

IL=2H## 

0222 

IF < ICOMM . EQ , 12345 ) CALL  RWCOM(l)  j 

1  0223 

CALL  K YBD< 2HBS , IBS , 0 )  f 

0224 

RETURN  , 

0225 

END 

0226 

END*  1 

1 

) 

j 

—  -  . 
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FTN4 

SUBROUTINE  YO 0 09 ( INTOT , IPAR > 

C**************«*********»*************»************************«***«*«* 

C  THIS  PROGRAM  IS  STORED  UNDER  *Y909 

C 

C********************************«******«******************************* 

C 

C  PROGRAMMER:  R.J.ALLEMANG 

C  MAIL  LOCATION  *  72 

C  UNIVERSITY  OF  CINCINNATI 

C  CINCINNATI,  OHIO  45221 

C  513-475-6670 

C 

C  REVISION  DATE:  JAN  19,1980 

C 

C #*****#**#********##*#***#*##*#********#*****#*#*****#**####*#*###***## 

INTEGER  BLANC, STER 

DIMENSION  IPAR  < 6  )  , L INE< 36 > , LINEi < 35 ) , 1Z ( 1 0 ) , INQ ( 6 ) 
i,IDIV(i),I CMMD ( 9 ) ,IH<1) ,1X1(1) ,IYi(i) , IDX( 1 > , IDY ( 1 > 

2, IC1 < 1 ) , IPTCM ( 1 ) 

3,  Ai(l) ,M1(1> , NDDi ( 20 ) , BMU(iO) ,BNU(10) ,IY(1) 

4 ,  AM  (1)  ,Xi(i>,IPL(4i)  ,  AMU(  1  >  ,  ANUd  )  ,  ADd  )  ,BD<  1 )  ,  Q(1  > 

EQUIVALENCE  <L.INE<2)  ,LINE1  > 

COMMON  ICOMM ,MANRE ,MDVA , BETA , IBLS, IT(5),ID(3> ,IP,NUMPT 
1 , NM , ICON , NCOM ,XXX(3,10> ,IX(3,10) , IC (10 > ,NMP , XR < 3 ) , A< 2 , 3 ) 

2,0(3) ,16(10) , NCN (10 ) ,SF<2) ,XXA<2,3> ,YYA(2,3) 

3  ,  F  SHF 'T  ,  DF  ,  MCF  , IZR, IL, IP  AR1, IPAR  2, IPAR  3, IPAR  4, IPAR  5, IPAR  6 

4  ,  IF  LAG  ,  NS ,  NE  ,  RMM  ( 1 0  ) ,  ERQU  0  )  ,  ZET  A  <  1 0  ) 

EXTERNAL  HDR8 , DTAD0 , NMAX 

DA  I A  ICMMD/2HK  ,2HMS,2HW  ,2HSP,2H/D, 

12H<  , 2HD  , 2HCL , 2HCR/ 

DATA  BLANC, STER .KROL/1H  ,1H*,1H@/ 

C *********************************************************************** 

C  UNIVERSITY  OF  CINCINATI/LEUVEN  MODAL  ANALYSIS  PROGRAM 

C 

C  LEAST  SQUARES  STARTING  VALUE  PROGRAM 

C****:M***************************************************************** 

IBELL=7B 

IPAGE=15414B 

CALL  SET AD ( HDR8 , IH , -8 , 0 ) 

ICOMM=0 

IRTN=i000 

IBS=1024 

CALL  K YBD ( 2HBS , IBS , 0 ) 

CALL  GETI (NMAX , IBLM) 

ION=IBLM- 1 

ICM*ION-i 

IBM=2 

CALL  RWCOM(O) 

C 

C  IF  INITIALIZATION  IS  REQUIRED,  LOAD  Y  91 

C 

IF< ICOMM. EQ.12345)G0  TO  900 
850  CALL  KYBD(2HMS,38,-9, 1 ) 

CALL  OVLD< 9 ) 

900  CONTINUE 

IF ( I FLAG . NE . 92) GO  TO  850 
C 


I 
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0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0  072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0  092 
0093 
0094 
‘0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 


C  NOTE!!!!!!  DATA  DISC  RECORDS  ABOVE  810  ARE  USED  BY  THIS  PROGRAM 

C 

C 

C  STORE  MODAL  INFORMATION  TO  DISC 

C 

CALL  K YBD  <  2HMS ,35,1) 

CALL  KYBD(2HMS ,25) 

CALL  KYBD(2HMS, 31,811) 

IL=2H## 

CALL  RWCOM(i) 

CALL  KYBD(2HMS,2i,I0N) 

CALL  K YBD ( 2HMS  >  21 , 1 CM) 

IRJ=ICM~i 
DO  950  I = I BM , I R J 
950  CALL  K YBD< 2HMS ,21 , 1 > 

CALL  KYBD<2HMS ,35,1) 

CALL  K YBD  <  2HMS ,  15 ) 

C 

C  SET-UP  DATA  SPACE  FOR  STARTING  VALUE  PROGRAM 

C 

CALL  SETAD(DTAD0,Q, 1024,-1) 

CALL  SETAD(DTAD0, AM, 2048,-1) 

CALL  SETAD(DTAD0, AD, 3770,-1) 

CALL  SETAD(DTAD0,BD, 5410,-i) 

CALL  SETAD<DTAD0, XI, 5492,-1) 

CALL  SETAD(DTAD0, AMU, 5574,-1) 

CALL  SETAD< DTAD0 , ANU,5654 ,-i ) 

CALL  SETAD(DTAD0 , Ai , 0 ,-i ) 

CALL  SETAD(DTAD0, Mi, 256,-1) 

GO  TO  1501 

C*********************************************************************** 

C  START  OF  MONITOR 

C*********************************************************************** 

1000  WRITE(i,1010) I BELL 
MFLAG=0 

1010  FORMAT < "##" ,A2) 

I=ISWR ( 177677B ,0,0) 

IPARl=-9999 
IP AR2=-9999 
IP AR3=-9999 
IPAR4=-9999 
1020  DO  1030  1=1,36 
1030  LINE( I ) =2H , , 

1040  CALL  TTYIN(LINE) 

1042  CALL  TEST <1, 1ST, LOG) 

CALL  KDIS(0,NS,NE,4) 

IF ( 1ST , LT . 0 ) GO  TO  1042 
CALL  CODE 
READ (LINE , 1 120 ) IL 
1120  FORMAT <A2) 

CALL  CODE 

READ (LINE 1 ,*)IPARi,IPAR2,IPAR3,IPAR4,IPAR5,IPAR6 

C**)M*****>M***>M******************************************************* 

C  MONITOR  COMMAND  TABLE 

C*********************************************************************** 

NCMMD=9 

DO  1138  1=1 ,NCMMD 

IF ( IL . EQ . ICMMD ( I ) ) GO  TO  1144 

1138  CONTINUE 

1139  WRITE( 1 ,1140  > 
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r 


■  -  V  .Sk 


1 


0119 

1140 

FORMAT  <  / ,  " 

ERROR-ILLEGAL  COMMAND") 

0120 

GO  TO  1000 

0121 

1144 

CONTINUE 

0122 

GO  TO  (1500, 

3000,1700,1400,1630,1610,5990,2000,5000) ,1 

0123 

c******************************************************************** 

0124 

c 

STARTING 

VALUE  PROGRAM  BEGINS 

0125 

c ####*#**#*#***##**#*#**#**#****#****#***********#****#**####*##*##### 

0126 

c 

KEYBOARD  ENTRY 

0127 

c *********************************************************************** 

0128 

1501 

MFLAG=i 

0129 

150  0 

CONTINUE 

0130 

PI2=6. 283185 

0131 

0132 

c 

0133 

c 

IN  Y909 

AND  Y910 ,  THE  FOLLOWING  VARIABLES  ARE  USED  AS  FOLLOWS: 

0134 

c 

0135 

c 

MFLAG 

5= 

FLAG  FOR  AUTOMATIC  OR  INTERACTIVE 

0136 

c 

ITYP 

SB 

1  NO  RESIDUAL  TERMS 

0137 

c 

ITYP 

S3 

2  INFLUENCE  OF  RESIDUAL  MASS  ONLY 

0138 

c 

ITYP 

35 

3  INFLUENCE  OF  RESIDUAL  FLEXIBILITY  ONLY 

0139 

c 

ITYP 

= 

4  INFLUENCE  OF  RESIDUAL  MASS  AND  FLEXIBILITY 

0140 

c 

BETA 

=B 

EXP .  DECAY  RATE  OF  EXP ,  WINDOW  USED  ON  IMPACT  DATA 

0141 

c 

EXP##<-BETA*TIME) 

0142 

c 

SCA 

ss 

SCALE  FACTOR  OF  MEASUREMENTS 

0143 

c 

NDD 

SB 

NUMBER  OF  SETS  OF  DATA  POINTS  TO  BE  DELETED 

0144 

c 

BETWEEN  NS  AND  NE 

0145 

c 

NDDi ( X  > 

= 

START  AND  END  CHANNELS  OF  SETS  OF  DATA 

0146 

c 

DESCRIBED  BY  NDD 

0147 

c 

MDVA 

SB 

0,1,2  DATA  IS  DISPLACEMENT,  VELOCITY,  ACCELERATION 

0148 

c 

NES 

= 

0149 

c 

MAMU 

SS 

MAXIMUM  POSSIBLE  NUMBER  OF  MODES  IN  CALCULATION 

0150 

c 

MAN2 

= 

REQUESTED  NUMBER  OF  DEGREES  OF  FREEDOM 

0151 

c 

TOL 

SS 

0152 

c 

MANi 

38 

MAXIMUM  POSSIBLE  NUMBER  OF  MODES  IN  CALCULATION 

0153 

c 

MSAMP 

= 

0154 

c 

NN 

SS 

0155 

c 

BMU(X) 

SS 

FINAL  ARRAY  OF  DAMPING  FACTORS 

0156 

c 

BNU(X) 

L- 

FINAL  ARRAY  OF  DAMPED  NATURAL  FREQUENCIES 

0157 

c 

MANRE 

s 

NUMBER  OF  MODES  USED  IN  PARAMETER  ESTIMATION 

0158 

c 

NMZ 

SS 

DIMENSION  OF  GREATEST  POSSIBLE  MATRIX 

0159 

c 

REQUESTED  PLUS  ONE 

0160 

c 

MAN3 

SS 

ACTUAL  NUMBER  OF  ELEMENTS  IN  THE  LARGEST  MATRIX 

0161 

c 

MZ 

35 

POSSIBLE  NUMBER  OF  ELEMENTS  IN  THE  LARGEST  MATRIX 

0162 

c 

AMU(X) 

35 

WORKING  ARRAY  FOR  DAMPING  FACTORS 

0163 

c 

ANU(X) 

S3 

WORKING  ARRAY  FOR  DAMPED  NATURAL  FREQUENCIES 

0164 

c 

MAN4 

S3 

0165 

c 

0166 

c**#*##***##*#*****#*****#****#*##* ****##*#*#***#*#*##*#*>*##*****#**** 

0167 

NES=0 

0168 

TOL-i .E-6 

0169 

MAMU=*20 

0170 

MSAMP*15 

0171 

NN=40 

0172 

DO  1561  II 

=  i 

,10 

0173 

BMU< II )®0 . 

0174 

1561 

BNU  ( 1 1  >  =*0  . 

0175 

MANRE=0 

0176 

MANi-MAMU 

0177 

MAN2*NN 

0178 

NMZ=41 

A  AC  C 

f 


0179 

MZ=861 

018<J 

MAN3=MZ 

0181 

MANU=NN 

0182 

DO  1590  11=1 ,  MANU 

0183 

AMU ( 11 ) =0 . 

0184 

1590 

ANU< II )=0 . 

0185 

MAN4=NMZ 

0186 

IF(MFLAG . EQ . 1  )GQ  TO  5000 

0187 

GOTO  1000 

0188 

c***********##*****»*#****####****»*##****#*a****#*#»##***#*#*#*#***#**a 

0189 

c 

CORRELATE  COMMAND 

0190 

|H  |||  j||  ^  ^  |||  |||  j|^  j||  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  j||  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  j|^  ^  ^  j|^  ^  j|^  ^  ^ 

0191 

5000 

CONTINUE 

0192 

MDVA=0 

0193 

BETA=0 . 0 

0194 

MSHIF=NS 

0195 

MIBS=(NE~NS)*2 

0196 

DO  5002  1=1,512 

0197 

5002 

Q(I)=0.  1 

0198 

DO  5003  1=1, MZ 

0199 

5003 

AM(I)  =  0 . 

0200 

XNO=0  . 

0201 

UR ITE< 1 ,9510 ) IBELL 

0202 

9510 

FORMAT </,  "ENTER  RANGE  OF  DISC  RECORDS  FOR  CURRENT  TEST  i  *' 

0203 

1 ,  " <N1 ,N2 ,N3) " 

0204 

2,/, 10X, "Ni  =  STARTING  RECORD" 

0205 

3,/,10X,"N2  =  ENDING  RECORD" 

0206 

4 , / , 1  OX , “N3  =  NUMBER  OF  SAMPLES/MEASUREMENT  (OPTIONAL) " ,A2 ) 

0207 

1=0 

0208 

READ< 1 , A )MBLi ,MBL2, I 

0209 

Il*MBL2-MBLi 

0210 

MSAMP=180/I 1+2 

0211 

IF< I . GT . MSAMP )MSAMP=I 

0212 

IF  <  MSAMP , GT . 60 ) MSAMP =60 

0213 

NOSAMP=0 

0214 

5005 

CALL  KYBD(2HMS ,31 ,MBLi ) 

0215 

CALL  KYBD(2HMS,li,0> 

0216 

IF( ISSW( 1 1 ) . LT . 0 )GO  TO  5006 

0217 

CALL  NIXIT(MBLl) 

0218 

5006 

IF ( ISSW(2 ) . LT ■ 0 )GO  TO  5120 

0219 

CALL  CHK ID< IT,ICIC) 

0220 

IF( IH(36) , NE , IZR ) GO  TO  5900 

0221 

IF<ICIC.EQ. 0) GO  TO  5900 

0222 

5120 

CALL  KYBD< 2H  ,0,MSHIF) 

0223 

CALL  KYBD(2HBS ,MIBS , 0 ) 

0224 

CALL  KYBD(2HX> ,1) 

0225 

CALL  KYBD(2H !  ,0,30000) 

0226 

CALL  KYBD<2Hs  ,0,30000) 

0227 

CALL  KYBD(2H  s  ,0,30000) 

0228 

MMM=MIBS/2 

0229 

5190 

CONTINUE 

0230 

CALL  KYBD(2HF  ,0) 

0231 

5200 

CALL  GETQt  0 , INQ) 

0232 

DT=1.  /(DFAFLOAT  < INQ( 1 ) ) ) 

0233 

XNQ=XNQ+1 . 

0234 

INQ ( 2 ) *1 AND ( INQ ( 2 ) ,-64)/64  ) 

0235 

CAL*  < 10 , AAINQ( 2) ) AFLOAT ( INQ( 3 ) ) /FLOAT  <  32767) A A2 

0236 

CALi=CALACAL  : 

0237 

DO  5250  1*1, MSAMP  I 

0238 

NOSAMP-NOSAMP+i  i 
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0239 
0240 
0241 
0242 
0243 
0244 
024S 
0246 
0  247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 
0280 
0281 
0282 
0283 
0284 
0285 
0286 
0287 
0288 
0289 
0290 
0291 
0292 
0293 
0294 
0295 
0296 
0297 
0298 


IK=I-i 

CALL  SETAD ( DTADO , I Y , IK , -1 ) 

J  =  0 

DO  5150  11=1, NMZ 
DO  5150  K=i , I I 
J=J+i 

5150  AM( J )=AM(  J)+CAL1#( FLOAT  < IY( 11 ) ) ♦FLOAT < IY(K ) ) ) 

5250  CONTINUE 

CALL  K  YBD ( 2HF  ,0) 

CALL  KYBD(2H*-,0) 

CALL  KYBD(2HF  ,0) 

CALL  SETAD (DTADO , IY , 0  ,  -1 ) 

DO  5600  I=1,MIBS 

560  0  Q  < I >  =Q ( I ) +FLOAT ( I Y ( I ) ) *CAL 

590  0  CALL  K YBD ( 2HBS , IBS , 0  ) 

IF (MBL1 . GE , MBL2 ) GO  TO  5990 

MBLl=MBLi+i 

GO  TO  5005 

C  DISPLAY  COMMAND 

5990  CALL  K YBD ( 2HCL , 0 ) 

CALL  K  YBD  <  2HBS , MIBS , 0  > 

DO  5905  1=1 , MIBS 
XVAL=G|(  I ) 

J  =  I-i 

5905  CALL  PUT ( 0 , J , XVAL , YVAL ) 

CALL  KYBD(2HF  ,0) 

CALL  K YBD ( 2HBS ,163,0) 

I=IBS/2-MSHIF-i 
CALL  KYBD(2H  ,0,1) 

IF ( NOS AMP . LT . 60 ) GO  TO  5995 
IF ( MFLAG . EQ . 1 ) GO  TO  1404 
GO  TO  1000 

5995  WRITE (1,9599) 

9599  FORMAT( "ERROR-NUMBER  OF  MEASUREMENTS  INSUFFICIENT",  ) 

GO  TO  1000 

C  PARAMETER  ESTIMATION  BASED  ON  PREVIOUSLY 

C  CALCULATED  MATRIX 

C*******************M************************************************** 

C  SP  0  GO  TO  1402  OUTPUT  ERROR  FOR 

C  ALL  DEGREES  OF  FREEDOM 

C  OR  DEGREES  OF  FREEDOM  Ni  TO  N2 

C#**#*****4* ********************************************** ***##***#*#**# 

1400  CONTINUE 

IF( IPARi . EQ . -9999) IPARi=G 
IF < IPARi . EQ . 0 )GO  TO  1402 
Li*IPAR 1 
L2-IPAR1 
GO  TO  1403 

1402  UR ITE ( 1 ,9401) 

9401  FORMAT ("  ENTER  RANGE  OF  DEGREES  OF  FREEDOM  TO  BE  ", 

1 "USED  IN  PARAMETER",/,"  ESTIMATION!",/) 

READ(i,*)Li,L2 
GO  TO  1403 

1404  Ll*2 
L2*32 
IPAR1-0 

1403  WRITE! 1 ,9404) I PAGE 
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029V  9404  FORMAT (A2> 


0300  C 

0301  C  DU  LOOP  FOR  ERROR  CALCULATION 


0302 
030  3 
0304 
030':, 
0306 
0307 
0308 
0309 
0310 


C 

C  SETTING  MATRIX  DATA  (AM)  INTO  WORKING  ARRAY  (AD) 

C 

DO  1480  MAN2=Li,L2 

1406  DO  1417  1=1 ,MZ 
1417  AD ( I ) =AM ( I > 

GO  TO  1407 

1407  MAN3=(MAN2*MAN2+MAN2)/2 
MANU=MAN2 


031.1  IF(ISSW(15>  .  LT  ,  0>WRITE(i  , 9415  > AD 

0312  9415  FORMAT (SE14 . 5) 

0313  MAN4=MAN2+1 


0314 

DC)  1409  1  =  1 ,  MAN2  j 

0315 

L=MAN3+I  j 

0316 

1409 

BD(I)=-AD(l_) 

0317 

0318 

C 

STEL  PERFORMS  GAUSSIAN  REDUCTION  OF  MATRIX 

0319 

/■'  ^  a.  ^  a.  ^  a.  a.  a.  ^  X  ^  ^  ^  ^  a.  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  X  ^  ^  ^  ^  ^  ^  ^  ^  X  ^  ^  ^  ^  ^  ^  ^  X  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  I 

^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  *r  ^  ^  V  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ™  *r  ^  ^  T  ’F  | 

0320 

CALL  STEL(MAN2,IER,AD(i) ,BD(1) ,Xi( 1) ) 

0321 

IF(IER.LT.O)  GO  TO  1498 

0322 

DO  1408  1=1 , MAN2 

0323 

1408 

XI ( I )=BD( 1 ) 

0324 

XI ( MAN4 ) =1 . 

0325 

ERROR=0 . 

0326 

DO  1435  1=1, MAN4 

0327 

L=MAN3+I 

0  328 

1435 

ERROR=ERROR-Xl( I )*AM(L> 

0329 

ERROR=ABS(ERROR) 

0330 

SR=ERROR/AM( 1 ) 

0331 

C 

0332 

C 

PLOT  ERROR  IN  *  FORMAT 

0333 

0334 

C 

DO  1436  1=2,41 

0335 

1436 

IP  L ( I ) =BLANC 

0336 

IPL ( 1 ) =KROL 

0337 

IPL ( 41 ) =KROL 

0338 

0339 

0340 

0341 

0342 

0343 


SI=AL0GT(5R>*4, 
IK=IFIX(39.5+SI  ) 
IF (IK  ,  GT . 40 ) IK  =  40 
IF( IK .LE .2) IK=2 
DO  1437  1=2 , IK 
1437  IPL(I)=STER 


0344 
0345 
0346 
0  347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 


CALL  IOSU ( NU , 0 ) 

1480  WRITE(NU,9430) MAN2 ,SR,(IPL(I> ,1=1,41) 

9430  FORMAT  (“DOF ",  13,  M  ERROR  =  ’,,E14.6,"  ",41Ai) 

IF ( IP AR 1 . EQ . 0 ) GO  TO  1000 

C******iM*:M*****M*****]M***:M**************************************** 

C  SP  N1  COMMAND 

C 

C  CALCULATE  FREQUENCY,  DAMPING,  AND  ERROR 

C  FOR  Ni  DEGREES  OF  FREEDOM 

C 

C*************,M********)M*********************************************t 

MAN2=Li 

CALL  NRRT(X1(1) , BD ( 1 ) ,MAN2 , AMU( 1 ) ,ANU(i) ,IER) 

IF(IER.NE.O)  GO  TO  1499 
DO  1430  1=1 ,MAN2 


/ 


i 


0419  SM=SC/SG 

0420  DRL'-DRL-  <  SJ  +SK  )  #AU  (  J )  -  ( SL-SM) #AV  <  J ) 

0421  DAM=DAM- ( SM+SL ) *AU  <  J ) - ( SK -S J ) *AU ( J ) 

0422  8230  CONTINUE 

0423  IF  ( IFH  .  EG) .  1  >  GO  TO  8099 

0424  IF ( ITYP . EQ . 1 )GO  TO  8100 

0425  IF( ( ITYP . NE . 2> . AND . < ITYP . NE . 4 ) )GO  TO  8200 

0426  SA  =  -OM*OM  +  BETA*B£TA 

0427  SB  =  2.*BETA#0M 

0428  SC  =  SA*SA  +  SB*SB 

0429  DRL  =  DRL  +  AMASS*SA/SC 

0430  DAM  =  DAM  +  AMASS4SB/SC 

0431  8200  IF( (ITYP .NE.3) .AND. (ITYP .NE.4) )GO  TO  8100 

0432  DRL  *  DRL  +  AFLEX 

0433  8099  SA=SCA* ( OM**MDVA> 

0434  IF ( MDUA .EQ.2)SA=-SA 

0435  DRL=DRL*SA 

0436  DAM=DAM*SA 

0437  8100  CONTINUE 

0438  I F ( JZZ . NE . I NCI) GO  TO  8101 

0439  CALL  GET ( 2 , I , ARX , AIX > 

0440  XSX=ARX~DRL 

0441  YSY=AIX-DAM 

0442  8101  CALL  PUT ( 3 , I , DRL , DAM ) 

0443  CALL  GET ( 2 , 1 , AR , AI ) 

0444  8060  SOM  =  SOM+ ( AR -DRL > **2  +  (AI-DAM>**2 

0445  IF ( IFLi . NE . 1 ) GO  TO  8065 

0446  DO  8063  1=1 ,NPOIN 

0447  CALL  GET ( 3 , I , DRL , DAM ) 

0448  DRL=DRL+XSX 

0449  DAM=DAM+ YSY 

0450  CALL  PUT (3,1, DRL , DAM > 

0451  8063  CONTINUE 

0452  8065  CONTINUE 

0453  WRITE ( 1 , 8999 ) IBELL , SOM 

0454  8999  FORMAT < "  LEAST  SQUARED  ERROR  =  ",A2,E14.5> 

0455  C*************************************************.********************* 

0456  C  END  OF  BENA3  SUBROUTINE 

0457  C********************************************************************** 

0458  IPARi-1 

0459  IPAR2=NPOIN 

0460  IF(IFL1 .EQ. 1 ) IP AR i=INC2-20 

0461  IF ( IFLi . EQ . l)IPAR2=INC2+20 

0462  M=2 

0463  N=3 

0464  GO  TO  8322 

0465  C*********************************************************************** 

0466  C  DISPLAY 

0467  C********************************************************************** 

0468  2000  IF(IP AR2.LT. 4) M=IPAR i 

0469  IF ( IPAR2 . LT . 4  >N=IPAR2 

0470  IF L 1=1 

0471  8322  CALL  KYBD(2HY  ,117) 

0472  CALL  KYBD(2HY  ,117,11,0) 

0473  CALL  KYBD(2HY  ,U7,N,M> 

0474  CALL  K YBD(2HY  ,117,M,N) 

0475  CALL  KYBD(2HY  ,117, 0,M) 

0476  8321  DO  6773  1=1,36 

0477  6773  LINE(I)»2H,, 

0478  6759  CALL  TTYIN(LINE) 
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I 
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0479 
0480 
0481 
0482 
0483 
0484 
0485 
0486 
0487 
0488 
0489 
0  490 
0491 
0  492 
0493 
0494 
0495 
0496 
0497 
0498 
0  499 
050  0 
0501 
0502 
0503 
0504 
0505 
0506 
0507 
0508 
0509 
0510 
0511 
0512 
0513 
0514 
0515 
0516 
0517 
0518 
0519 
0520 
0521 
0522 
0523 
0524 
0525 
0526 
0527 
0528 
0529 
0530 
0531 
0532 
0533 
0534 
0535 
0536 
0537 
0538 


6757 


6745 


6758 


C 

C 

C 

C 

C 

C 

C 


IF < (INC2.LT. 1) .OR. < INC2 . GT . 255  >  > INC2=i 
CALL  KDIS(M,IPAR1,IPAR2,4> 

CALL  KDIS ( N , IPAR1 , IPAR2,4) 

DO  6745  1=1,5 

CALL  KDIS(N,INC2, INC2 , 4 ) 

CALL  TEST ( 1 , ISTST , LOGX 1 ) 

IF ( ISTST>6757, 6758, 6758 

IPAR2=9999 

CALL  CODE 

READ (LINE,*) IP ARi , IPAR2 

IPAR1  =  0  NO  MODAL  COEFFICIENTS  ARE  STORED 
IPAR1  <  0  STORE  MODAL  COEFFICIENTS 
IP ARi  >  0  DISPLAY  POINTS  IP ARi  TO  IPAR2 

IF  IPAR2  IB  DEFAULTED,  ADD  MODE 
IPARi  TO  RECONSTRUCTION 


IFL.1  =  0 


IF( IPARi >5060 ,6780 ,6790 
6780  IPARR=0 

CALL  K  YBD  ( 2HBS  ,  IBS , 0  > 

GO  TO  5999 
6790  CONTINUE 

IF ( IPAR2 . NE , 9999 ) GO  TO  8321 
IFLl=i 

IDMODE=IPAR 1 

IF(  IPARi.  GT.  ( MANRE+1  > )  IP  AR2-=NP0IN 
IF(IPAR1 .GT. (MANRE+i) >GO  TO  8321 
IF (IPARi .EQ, (MANRE+i) >IFL1=0 
GO  TO  1500 

C  (( *  *  *  *  )|(  *  *  *  *  y  *  *  )|c  ]jt  j^(  *  *  *  *  *  *  *  *  i(c  )((  *  *  *  *  *  i(c  *  *  3*  l|t  ])(  *  *  * )(( 3*  )JC  ijt  )(t  *  *  )(C  i(t  *  *  l(t  l|(  ]|C  ]*  *  H/i  *  *  s  f  *  * 

C  STORE  MODAL.  COEFFICIENTS 

C*********************************************************************** 

5060  CONTINUE 
IFL1=0 

CALL  IOSW ( NU , 0  ) 

DO  5250  1=1 ,MANRE 
ANG=ATAN2(AV(I> ,AU(I)  > 

R=ABS ( SQRT ( AU ( I >  **2+AV ( I ) **2 ) /BMU ( I ) ) 

IF(RH(3) .GT . 0 , 0)R=R*RH(3) 

IF(RH(3) .GT . 0 . 0>AMASS=AMASS*RH(3) 

IF(RH(3) .GT . 0 . 0  > AFLEX=AFLEX*RH ( 3 ) 

5140  CALL  KYBD(2HBS , IBS , 0 ) 

IF (ANG.GE. 0)GO  TO  5143 
R=-i . #R 

ANG=ANG+P 12/2 . 0 

5143  Li=IFIX(ANG*57. 295779) 

IF ( I . GT . NM)GO  TO  5250 
RMAX=RMM( I ) 

IF( (ID1 .EQ.2HX-) .OR . (IDi .EQ.2H-1) )  GO  TO  5160 
IF  < ( ID1 . EQ . 2HX  ) .OR . ( IDi .EQ.2H1  ))GOTO5170 
IF( (IDi .EQ.2HY-) .OR . (IDI .EQ.2H-2) )GO  TO  5180 
IF ( ( IDi , EQ , 2HY  > . OR . ( IDi . EQ , 2H2  ))GO  TO  5111 
IFUIDi  .EQ.2HZ-)  .OR  .  (IDi  .EQ.2H-3)  )GO  TO  5500 
IF( (IDi .EQ.2HZ  > .OR . (IDI .EQ.2H3  ))GO  TO  5210 
C 

C  DIRECTIONAL  COSINE  CHECK 

C 

IF ( ISSU ( 12 ) >5144,5149 

5144  CONTINUE 
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0539 

0540 

0541 

0542 

0543 

0544 

0545 

0546 

0547 

0548 

0549 

0550 

0551 

0552 

0553 

0554 

0555 

0556 

0557 

0558 

0559 

0560 

0561 

0562 

0563 

0564 

0565 

0566 

0567 

0568 

0569 

0570 

0571 

0572 

0573 

0574 

0575 

0576 

0577 

0578 

0579 

0580 

0581 

0582 

0583 

0584 

0585 

0586 

0587 

0588 

0589 

0590 

0591 

0592 

0593 

0594 

0595 

0596 

0597 

0598 


IF< ID1 . NE . 2HD  >GO  TO  5149 
DO  5145  IM=-i,3 

IM3=IM+3 

Rl=R#COS!RH! IM3)*P 12/360 .0) 

CALL  RWCMC ( IM , Ri , Li , I , IB , IP , IBM , RHAX , 0 ) 

5145  CONTINUE 

GO  TO  5515 

5149  CONTINUE 
WRITE! 1 ,5150) 

5150  FORMAT!/, "ERROR-WRONG  COORDINATE  CODE") 

GO  TO  5999 

5160  R=-R 

5170  CALL  RWCMC !i>R,Ll,I>IS,IP> IBM ,  RMAX , 0 ) 

GO  TO  5515 
5180  R=-R 

5111  CALL  RWCMC!2,R,Li,I,IS,IP,IBM,RMAX,0> 

GO  TO  5515 
5500  R=~R 

5210  CALL  RWCMC ! 3 , R , Li , I , IS , IP , IBM , RMAX , 0 ) 

5515  CALL  K  YBD ! 2HBS , IBS , 0 ) 

RMM ! I ) =RMAX 
IF ! ISSW !2) >7100,7200 
7100  CONTINUE 

CALL  IOSU ! NU , 0 ) 

IF!  I  .EG|.  1 )  WR ITE !  NU  ,  730  0  )  IS,  IDi 
7300  FORMAT!/, "POINT  NUMBER  =  "  ,14 

1,/, "DIRECTION  =  " , A2 , / ) 

IF ! I . EQ . 1 ) WRITE !NU, 9 173) AMASS ,AFLEX 
IF!1 .EQ.i)WRITE!NU,7005) 

7005  FORMAT!/, "MODE" ,8X, "FREQUENCY" ,4X, "ZETA!%> ",4X, "MAGNITUDE" 

1,6X, "PHASE"/) 

WR ITE ! NU , 7105)1, FRQ!I) , ZETA! I ) , R , LI 
7105  FORMAT! IX, 14, 4X,F 10 . 3 , 4X ,F9 , 6 , 3X , G1 2 . 6,4X, 15) 

7200  CONTINUE 
5250  CONTINUE 

5999  IF ! MBL1  .  EG| .  MBL2  .  AND  .  MFLAG  .  EG) .  0  > GO  TO  100  0 
IF !MBL1 . EQ . MBL2 . AND , MFLAG , EQ . 1 ) GO  TO  9003 
MBL.i=MBLi  +  l 
GO  TO  5005 

C  ******  ##  *****  **  #  #*  **  *****  **  *  **  ******  *  *  **  *  ***  *  **  *  *  *  **  *  *****  ***  *****  **  * 

C  MASS  STORE  COMMAND 

c #* ******* ***# * * **#* ********** ** ******** ** * **** * ***** ********* ***** * * * 

3000  CALL  KYBD!2HMS, IPAR1,IPAR2) 

GO  TO  1000 

C********************************************************************* 

C  REPLACE  COMMAND 

C********************************************************************* 
3500  CONTINUE 

DO  3600  1-1 , MANRE 
F  RQ !  I  > *BNU! I > /P 12 

NCN!I)=BNU!I>/!DF*PI2)-FSHFT/DF+1 . 0 
IB! I )=-i ■ 0*BMU!I)/!DF*PI2> 

ZETA! I >=!-l  . Q)#BMU!I >*100 , 0/ ! SQRT ! BMU !  I ) **2+BNU !  I ) **2 >  > 

3600  CONTINUE 

GO  TO  1000 
C 

C  RETURN  TO  MONITOR 

C 

9001  CONTINUE 
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0599 
0600 
060  i 
0602 
0603 
0604 
0605 
0606 
0607 
0608 
0609 
0610 
0611 
0612 
0613 
0614 
0615 
0616 
0617 
0618 
0619 


C  EXIT  TO  *Y90i 

C 

IFLAG= 1 
CALL  RWCOM(l) 

CALL  K  YBD  ( 2HMS ,38,-10  ,  1 ) 

CALL  OVLD  <  9 ) 

90  03  CONTINUE. 

C 

C  LXIT  TO  *Y903 

C 

IF  LAG=97 
CALL  RWCDME1) 

CALL  K  YBD  OHMS  ,  38  ,  -8 , 1  ) 

CALL  OULD ( 9 ) 

9995  CONTINUE 
IL-2H#* 

IF ( ICOMM . EQ . 12345 ) CALL  RWCOM ( 1 ) 
CALL  KYBDOHBS,  IBS,  0) 

RETURN 

END 

END* 
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0001 
0002 
0003 
0004 
0005 
0006 
0  0  07 
0  0  08 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0  017 
0018 
0019 
0020 
0021 
0  0  22 
0  023 
0024 
0  025 
0026 
0027 
0028 
0029 
0  030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0  038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0  053 
0054 
0055 
0  056 
0  057 
0058 


FTN4 

SUBROUTINE  YO 0 09 ( INTO! , IPAR ) 

C ***** **### ###*## # *** # ####**## # *  *  *  ****** ***# * *# *  *  # * #*# * ****** * ****** * **: * 

C  THIS  PROGRAM  IS  STORED  UNDER  *Y911 

C#*# ****##*#****## 4*# *********** ******************************** *##**#*# 

C 

C  PROGRAMMER:  R . J . AELEMANG 

C  MAIL  LOCATION  #  72 

C  UNIVERSITY  OP  CINCINNATI 

C  CINCINNATI ,  OHIO  45221 

C  513-475-6670 

C 

C  REVISION  DATE:  JAN  03,  1980 

C 

DIMENSION  IPAR  ( 6 ) , LINE < 36 > , LINE! ( 35 ) , 12 ( 1 0 ) , INQ < 6 ) 
i,IDIV(i) , 1CMMD ( 24 ) , IH( 1 ) ,1X1(1) ,IY1(1) , IDX(i> ,IDY(1) 

2 , 1 C 1  (  1 ) ,IPTCM(i) , JDIR(3> , JCOhP(lO) ,JPT(250> 

EQUIVALENCE  (l.INE(2>  ,LINEi ) 

COMMON  I COMM , MANRE ,  MDVA , BET  A , IBLS , IT ( 5 ) ,11X3) ,IP,NUMPT 
1 ,  NM , ICON , NCGM . XXX (3,10) , IX(3, 10) , IC < 1 0 ) , NMP , XR ( 3 ) , A ( 2 , 3 ) 

2, 0(3), 16(10), NON (10), SF ( 2 ) , XXA (2,3), YYA ( 2 , 3 ) 

3 , FSHFT , DF , MCF , IZR , IL , IPAR 1 , IP AR2 , IP AR3 , IP AR  4 , IP AR5 , IP  AR6 
4 , I FLAG , NS , NE , RMM ( 1 0 ) , FRQ ( 10), ZETA (10) 

EXTERNAL  HDR8 , DTAD0 ,NMAX 

DATA  ICMMD/2HD  , 2HV  , 2HX  ,2HEX,2H:  , 

12HM  ,2H  , 2HRO , 2HA- , 2HAM , 

22HCH , 2HSP ,2HX( , 

32HX  > , 2HCV , 2H (  ,2HB  , 2HL  , 

42HW  , 2HI  , 2HK  ,2HA+,2H/L, 

52HX  / 

C****************^***********^**^*^********************************* 

C  UNIVERSITY  OF  CINCINNATI/LEUVEN  MODAL  ANALYSIS  PROGRAM 

C 

C  MODE.  MANIPULATION  PROGRAM 

C***************************)M****>M************************************ 

IBELL=7B 
IP AGE=15414B 

CALL  SETAD(HDR8, IH, -8,0) 

ICOMM=0 
IBS=1 024 

CALL  KYBD(2HBS, IBS, 0 ) 

CALL  GET I (NMAX , IBLM) 

ION=IBLM-l 

ICM=ION-l 

IBM=2 

DTR=6. 283165/360.0 
I«I0N*IBS+27Q 

CALL  SET AD(DT ADO , IPTCM , I , -i > 

CALL  RWCOM(O) 

IF ( I COMM . EQ . 12345) GO  TO  900 
CALL  K YBD ( 2HMS ,38,-2, 1 ) 

CALL  OVLD ( 9 ) 

900  CONTINUE 

IF < IFLAG . EQ . 1 )GO  TO  1130 

C*********************************************************************** 
C  START  OF  MONITOR 

C*********************************************************************** 
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t 


0059 

1000 

WRITE(i,1010) I BELL 

0060 

1010 

FORMAT ( "*" , A2) 

0061 

I=ISWR< 1776778,0,0) 

0062 

IP AR 1= -9999 

0063 

IPAR2=-9999 

0064 

IP AR3=-9999 

0065 

IP AR4=-9999 

0  0  66 

IP AR5=-9999 

0067 

IPAR6=-9999 

0  060 

1020 

DO  1030  1=1,36 

0  069 

1030 

LINE ( I ) =2H , , 

0070 

1040 

CALL  TTYIN(LINE) 

0071 

1042 

CALL  TEST (1, 1ST, LOG) 

0072 

IF (1ST . LT . 0  > GO  TO  1042 

0  073 

CALL  CODE 

0074 

READ(LINE,1120)IL 

0  075 

1120 

FORMAT ( A2> 

0076 

CALL  CODE 

0  077 

READ ( LINE! , * ) IP AR 1 , IP AR2 , IP AR3 , IPAR4 , IPAR5 , IPAR6 

0078 

C  **************  #*##  #  #**#  *  *#*#  *##  ********  #***  ******************  ***  *  *  He***  * 

0079 

c 

MONITOR  COMMAND  TABLE 

0080 

c ******* * * # *#* **** * *  ***** ****** * * * * *** * ****** * ******* ********* ** * ****** * 

0081 

1130 

IFLAG=0 

0082 

CALL  RWCOM(i) 

0  083 

IF ( IL . EQ . 2H#* ) GO  TO  1000 

0084 

NCMMD-24 

0085 

DO  1138  1=1 ,NCMMD 

0086 

IFdL.EQ,  ICMMD(I)  )GO  TO  1144 

0087 

1138 

CONTINUE 

0088 

1139 

WRITE (1,1 140 ) 

0089 

1140 

FORMAT (/, "ERROR-ILLEGAL  COMMAND") 

0090 

GO  TO  1000 

0091 

1144 

IF( I . GT . 10 )GO  TO  1146 

0092 

GO  TO  (9004,9004,9004,9004,9004,9004,9004,9004,9004,9004),! 

0  093 

1146 

1=1-10 

0  094 

IF ( I , GT . 1 0 ) GO  TO  1148 

0  095 

GO  TO  (9004,9004,6000,6500,9004,9995,1100,1100,9002,9001) , I 

0096 

1148 

1=1-10 

0097 

GO  TO  (9001,9003,9008,2000),! 

0  098 

1100 

CONTINUE 

0099 

IFdPARi  .  EQ  ,  37 )  GO  TO  9005 

0100 

IF (IPARi . EQ . 1 0 )GO  TO  9006 

0101 

IFdPARi  ,EQ.6)G0  TO  9007 

0102 

GO  TO  1139 

0103 

C*********************************************************************** 

0104 

C 

CALCULATE  MODAL  ASSURANCE  CRITERION  BETWEEN  SHAPEVECTQRS 

0105 

C*********************************************************************** 

0106 

2000 

CONTINUE 

0107 

IFdPARi  .EQ.  1) GO  TO  40  0  0 

0108 

IFdPARi  ,EQ.2)G0  TO  8000 

0109 

DO  2010  1=1,3 

0110 

2010 

JDIR(I)=I 

0111 

DO  2020  1=1,10 

0112 

2020 

JCOMP (I ) =1 

0113 

DO  2030  1=1,250 

0114 

2030 

JPT (I ) =1 

0115 

2040 

CONTINUE 

0116 

WR ITE< 1,2050) IPAGE,IBELL 

0117 

2050 

FORMAT (A2,/, "ENTER  OPTION  FOR  MODAL  ASSURANCE  CRITERIA:  " 

0118 

i,/,10X,"i>  MEASUREMENT  DIRECTION" 
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0119  2,  / , 10X , "2)  COMPONENTS" 

0120  3,/,10X,"3)  POINT  NUMBERS" 

0121  4,/,10X,"4>  CONTINUE" 

0122  5,/,10X,"5>  RETURN  TO  MONITOR", A2) 

0123  READ( 1  ,*) IANS 

0124  GO  TO  (2100, 2200, 2300, 2400, 1000)IANS 

0125  2100  CONTINUE 

0126  DO  2110  1*1,3 

0127  2110  JDIR(I)=0 


0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 


2120  CONTINUE 
Ni=-9999 
N2=~9999 

WRITE(i,2140) IBELL 
2140  FORMAT <A2,/,  "DIRECTIONS)  ?"  > 

READd, *)N1,N2 
IF(Ni  .  L.E  .  0  )GG  TO  2040 
IF (Ni . GT . 3)G0  TO  2120 
IF< (N2.LE.0) .OR . <N2 . GT . 3 ) )N2=Ni 
DO  2150  I=Ni,N2 
2150  JDIR(I)=I 
GO  TO  2120 
2200  CONTINUE 

DO  2210  1=1,10 
2210  JCOMP ( I ) =0 
2220  CONTINUE 
Ni=-9999 
N2=-9999 

URITEC 1, 2240 )  j BELL 
2240  FORMAT < A2 , / , "COMPONENT (S ) 7 " ) 

READd, *)N1,N2 
IF  ( Nl  ,  LE  .  0  >  GO  TO  2040 
IF ( Nl , GT ■ 1 0 ) GO  TO  2220 
IF( (N2.LE.0) .OR . <N2 . GT . 10  >  >N2=N1 
DO  2250  I=Ni,N2 
2250  JCOMP ( I ) =1 
GO  TO  2220 
2300  CONTINUE 

DO  2310  1=1,250 
2310  JPT ( I  )  =  0 
2320  CONTINUE 
Nl=-9999 
N2=-9999 

UR ITE < 1 , 2340 ) IBELL 

2340  FORMAT <A2,/, "POINT  NUMBER (S)?"> 

READd  ,*)N1  ,N2 
IF(Ni .LE. 0>GO  TO  2040 
IF(Ni . GT . 250 )GO  TO  2320 
IF  < (N2.LE. 0) .OR . ( N2 . GT . 250 ) )N2»N1 
DO  2350  I=N1,N2 
2350  JPT ( I ) =1 

GO  TO  2320 
2400  CONTINUE 

WRITE(1,2410) IBELL 

2410  FORMAT (A2,/, "ENTER  REFERENCE  MODE  NUMBER:") 
READd, *)IMODE 
WR  ITEd  ,2420  )  IBELL 

2420  FORMAT <A2,/, "ENTER  ANALYSIS  MODE  NUMBER:") 
READd, *)JMODE 
WRITE (1,2430) IBELL 


2430  FORMAT < A2 , / 


"ENTER  METHOD  TO  BE  USED  TO  CALCULATE  'MAC' 
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I 


017V 
0180 
0181 
0182 
0183 
0184 
0 185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 


1, /,10X,"i)  COMPLEX  SHAPEVECTOR" 

2, /,10X,"2)  REAL  SHAPEVECTOR " , / > 

READ(1 ,  HO  MAC 

IF ( (MAC . NE . 1 ) .AND. (MAC ,NE . 2) >MAC=i 

AM1  =  0 . 0 

AM2-0  .  0 

CMR  =  0 . 0 

CMI  =  0 . 0 

DO  3000  1=1, IP 

IF < JPT < I ) .EQ.0)GO  TO  30  0  0 

K=IPTCM( I ) 

IF <  JCOMP ( K  > . EQ . 0 ) GO  TO  3000 
DO  2900  J=i , 3 
IF< JDIR(J) .EQ. 0)GO  TO  2900 
IF(ISSW(14) .LT. 0)GO  TO  1000 
RMAXi=RMM< IMODE) 

RMAX2=RMM( JMGDE) 

CALL  RWCMC <  J , R i , Li , IMODE , I , IP , IBM,RMAX1 , 1 ) 
CALL  RWCMC ( J , R 2 , L2 , JMODE , I , IP , IBM , RMAX2 , 1 ) 
IF ( MAC . EQ . 2 ) Li=90 
IF  ( MAC  .  EQ  ,  2 )  L.2=90 
AR i=Ri*COS( FLOAT (Li )#DTR ) 

AR2=R2*C0S ( FLOAT ( L2 ) #DTR  ) 

AI i=Ri*SIN( FLOAT ( LI >*DTR> 

AI2=R2*SIN (FLOAT <L2)*DTR> 
AMi=ARi*ARi+AIi#AIi+AMi 
AM2=AR2*AR2+AI2*AI2+AM2 
CMR=AR2*AR1+AI2*AU+CMR 
CMI=ARi*AI2-AR2*AIi+CMI 
2900  CONTINUE 
3000  CONTINUE 

AMAC= ( CMR*CMR+CMI*CMI ) / ( AM1*AM2 ) 
SFR=CMR/AMi 


SFI=CMI/AM1 
CALL  IOSU ( NU ,  0  ) 

UR ITE ( NU , 31 0  0 ) AMAC ,SFR , SFI 

3100  FORMAT (/, "MODAL  ASSURANCE  CRITERION . ",10X,F10.7 

1 ,  / , "MODAL  SCALE  FACTOR (REAL) . ",4X,F16.7 

2,  /, "MODAL  SCALE  F ACTOR (IMAG) . ”,4X,F16.7> 

GO  TO  1000 

C  MODE  SCALE 

4000  CONTINUE 

UR ITE (1,4020) I BELL 

4020  FORMAT (A2,/, "ENTER  ANALYSIS  MODE  NUMBER?") 

READ( 1 ,#) IMODE 
URITE( 1 ,4030 ) I BELL 

4030  FORMAT ( A2 ,/, "ENTER  DESTINATION  MODE  NUMBER?") 
READ(l,*)KMODE 
IF( IMODE. EQ.KMODE)GO  TO  4000 
IF ( IPAR2 . NE . -9999 ) GO  TO  4050 
WRITE(i ,4040) I BELL 

4040  FORMAT (A2,/, "ENTER  MODAL  SCALE  FACTOR") 

SFR  =  0 . 0 


SFI=0 . 0 

READ(1,*)SFR,SFI 
4050  CONTINUE 
RMAX3-0.0 
DO  5000  1=1, IP 
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0239  DO  4900  J=i,3 

0240  IF  ( ISSW(  1 4 )  .  LT  .  0  )GG  TO  1000 

0241  R MAX 1=R MM ( IMODE) 

0242  CALL  RWCMC ( J , R 1 , LI , IMODE , I , IP , IBM , RMAXi , i ) 

0243  AR 1-R i *COS  <  FLOAT  ( L 1 >  *D TR  > 

0244  AIi-Ri#S IN (FLOAT  (LI >#DTR  > 

0245  AR3=(ARi*SFR+AIi*SFI ) 

0246  AI3=(AIi*SFR-ARi*SFI) 

0247  SF F=SFR*SFR+SFI*SFI 

0248  AR3=AR3/SFF 

0249  AI3=AI3/SFF 

0250  R3=SQRT(AR3*AR3+AI3*AI3> 

0251  ANG=ATAN2(AI3,AR3) 

0252  L3=ANG/DTR 

0253  IF ( L3 . GE , 0 ) GO  TO  4500 

0254  R3=(-i,0)*R3 

0255  L3=L3+180 

0256  4500  CONTINUE 

0257  CALL  RWCMC ( J , R3 , L3 , RHODE , I , IP , I BM , RMAX3 , 0 ) 

0258  4900  CONTINUE 

0259  5000  CONTINUE 

0260  RMM ( KMODE )=RMAX3 

0261  FRQ( KMODE )=FRQ( I MODE) 

0262  ZETA(KMODE)=ZETA( IMODE) 

0263  NCN(KMODE)=NCN( IMODE) 

0264  IB ( KMODE ) =16 ( IMQDE ) 

0265  GO  TO  1000 

0266  C*********************************************************************** 

0267  C  MODE  SUBTRACTION 

0268  C*********************************************************************** 

0269  8000  CONTINUE 

0270  WRITE (1,8010) I BELL 

0271  8010  F0RMAT(A2,/, "ENTER  REFERENCE  MODE  NUMBER 7") 

0272  READ(1,*> IMODE 

0273  WR ITE ( 1 , 8020 ) I BELL 

0274  8020  FORMAT (A2,/, "ENTER  ANALYSIS  MODE  NUMBER?") 

0275  READ( 1 ,*) JMODE 

0276  WRITE(1 ,8030) I BELL 

0277  8030  F0RMAT(A2,/, "DESTINATION  MODE  NUMBER?") 

0278  READ( 1 ,  HOKMODE 

0279  IF ( IMODE , EQ . KMODE >GO  TO  B000 

0280  IF (JMODE . EQ . KMODE ) GO  TO  8000 

0281  RMAX3=0.0 

0282  DO  8990  1  =  1,  IP 

0283  DO  8900  J=l,3 

0284  IF ( ISSW( 14) ,LT . 0 )GQ  TO  1000 

0285  RMAXi*RMM( IMODE) 

0286  RMAX2=RMM( JMODE) 

0287  CALL  RWCMC( J ,R 1 ,L1 , IMODE , I , IP , IBM , RMAXI , l ) 

0288  CALL  RWCMC < J ,R2 , L2 , JMODE , I , IP , IBM ,RMAX2 , 1 ) 

0289  ARl=Rl*COS(FLOAT(Ll)*DTR) 

0290  AR2»R2*C0S(FL0AT(L2)*DTR) 

0291  AI1=R1*S IN (FLOAT  <L1 )#DTR ) 

0292  AI2=R2*SIN(FL0AT(L2)#DTR) 

0293  AR3=AR2-ARi 

0294  AI3-AI2-AI1 

0295  R3»SQRT(AR3#AR3+AI3*AI3> 

0296  ANG“ATAN2( AI3 ,AR3) 

0297  L3-ANG/DTR 

0298  IF<L3 . GE . 0  >GO  TO  8500 
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0299  R3=(-i . 0>*R3 

0300  L3=L3+180 

0301  8500  CONTINUE 


0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0320 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 


CALL  RWCMC < J , R 3 , L3 , RHODE , I , IP , IBH , RHAX3 , 0 ) 

8900  CONTINUE 
8990  CONTINUE 

RHH ( RHODE ) =RHAX3 
F RQ< RHODE > =FRQ< JMODE > 

ZET A ( RHODE >  =ZET A ( JHODE ) 

NCN (RHODE ) =NCN  <  JHODE ) 

IB(RHODE)=IB( JMODE) 

GO  TO  1000 
C 

C  STORE  AND  READ  SET-UP  AND  HODAL  DATA  TO  AND  FROH  DISC 

C 

C  READ 

C 

6000  CALL  R YBD ( 2HHS ,35,1) 

CALL  R YBD <  2HHS , 25 ) 

IF(IPARi,£Q.-9999) GO  TO  7000 

IF< (IPARi ,GE. 0) .AND. (IPAR1 .LE.800) )  CALL  K YBD ( 2HH3 , 31 , IPAR 1 ) 
IF <  < IPARi . LT . 0  > . OR . < IPAR1 . GT . 800  >  >GO  TO  6800 
CALL  RYBD ( 2HHS ,11,0) 

CALL  R YBD<  2HHS ,31 ,  - 1 ,  1  > 

CALL  RUCOH(-l) 

IF ( ICOHH . NE . 12345 ) GO  TO  6800 
CALL  RYBD < 2HHS ,11 ,  ION  > 

CALL  RUCOH(O) 

IF( ICOHH. NE.1234S)G0  TO  6800 

NHP=0 

IR J=ICH 

CALL  R YBD< 2HHS ,il,IRJ) 

IR J=IR J-l 

6100  DO  6200  I  =  IBH ,  IR  J 
6200  CALL  RYBD(2HHS ,11,1) 

CALL  RYBD ( 2HHS , 35 ,  1 ) 

CALL  RYBD < 2HHS , 15 ) 

ICOHM=12345 

UR ITE(i, 1235 )<IT(I> ,1=1,5 > 

1235  FORHAT</, "TEST  ID  IS",23X,5A2> 

GO  TO  1000 
C 

C  STORE 

C 

6500  CALL  R YBD ( 2HHS ,35,1 > 

CALL  KYBD(2HHS ,25) 

IF ( IPAR 1 .EQ. -9999 >GO  TO  7500 

IF( (IPARi .GE. 0) .AND. (IPARi .LE.800) )CALL  R YBD< 2HHS , 31 , IPAR 1 ) 

IF( (IPARI ,LT . 0) .OR . (IPARi .GT.800) )GO  TO  6800 

IL=2H#* 

CALL  RWCOM(l) 

IH(6)=52525B 
IH(9)=10 
IH( 10 )=IT ( 1 ) 

IH( 11 ) =IT (2 ) 

IH( 12)=IT (3) 

IH( 13)=IT (4) 

IH( 14)*IT (5) 

IH(34)-2H7i 

CALL  KYBD(2HHS ,21 , ION) 


! 
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0359 

CALL  KYBD<2HMS ,21 , I CM) 

0360 

IH<34)=2H72 

0361 

IRJ=ICM-1 

0362 

IP AR 1=1 PAR 1+2 

0363 

DO  6700  I=IBM,IRJ 

0364 

IP AR 1  =  1 PAR  1  +  1 

0365 

6700 

CALL  KYBD<2HMS,2i,I) 

0366 

WRITE(i>6701)IPARl 

0367 

6701 

FORMAT</, "NEXT  DATA  RECORD  IS  ",I4> 

0368 

CALL  K YBD (2HMS , 35 , 1 ) 

0369 

CALL  K YBD ( 2HMS ,15) 

0370 

GO  TO  1000 

0371 

6800 

WR ITE  d , 680 1 ) 

0372 

6801 

FORMAT < / , “ERR OR -INVALID  DATA  RECORD") 

0373 

NMP  =  0 

0374 

IC0MM=12345 

0375 

GO  TO  1000 

0376 

C 

0377 

C 

LOAD  MODE  SHAPEVECTOR 

0378 

C 

0379 

7000 

CONTINUE 

0380 

WRITEd  ,7001  )  IBELL 

0381 

7001 

FORMAT <A2,/, "SOURCE  MODE  NUMBER?") 

0382 

READd  ,*)IMGDE 

0383 

RMAX=RMM  < I MODE ) 

0384 

DO  7100  I=i,IP 

0385 

CALL  RWCMC ( 1 , R , Li , IMODE , I , IP , I BM , RMAX 

0386 

CALL  RWCMC  <i,R,Li,l,I,J.P,i  ,  RMAX  ,  0  ) 

0387 

CALL  RWCMC ( 2, R, Li , IMODE, I, IP , IBM, RMAX 

0388 

CALL  RWCMC (2, R, LI, 1,1, IP, 1, RMAX , 0 ) 

0389 

CALL  RWCMC ( 3 ,R , Li , IMODE , I , IP , IBM , RMAX 

0390 

CALL  RWCMC ( 3 , R , Li , 1 , I , IP , 1 , RMAX , 0 ) 

0391 

7100 

CONTINUE 

0392 

IBW=IB< IMODE) 

0393 

ICHAN=NCN( IMODE) 

0394 

FREQ=FRQ( IMODE) 

0395 

DAMP=ZETA< IMODE) 

0396 

MAXPT=IP 

0397 

GO  TO  1000 

0398 

C 

0399 

C 

STORE  MODE  SHAPEVECTOR 

0400 

C 

0401 

7500 

CONTINUE 

0402 

WRITEd, 750DIBELL 

0403 

7501 

F0RMAT<A2,/, "TARGET  MODE  NUMBER?") 

0404 

READd  ,*)IMODE 

0405 

IF( IMODE , GT ■ NM )GO  TO  7500 

0406 

IF < IP . GT . MAXPT )GO  TO  7900 

0407 

RMM< IMODE)=RMAX 

0408 

IB<IMODE)=IBW 

0409 

NCN ( IMODE ) =ICHAN 

0410 

FRQ< IMODE )=FREQ 

0411 

ZETA< IMODE) “DAMP 

0412 

DO  7600  1=1, IP 

0413 

CALL  RWCMC  d,R,Li,l,I,IP,l ,  RMAX ,  1  > 

0414 

CALL  RWCMC d , R , L 1 , IMODE , I , I P , IBM , R MAX 

0415 

CALL  RWCMC<2 ,R ,L1 , 1 , I , IP , 1 ,RMAX , 1 ) 

0416 

CALL  RWCMC < 2 , R , Li , IMODE , I , IP , IBM, RMAX 

0417 

CALL  RWCMC <3 ,R,Li,i,I,IP,i ,RMAX , 1 ) 

0418 

CALL  RWCMC ( 3 , R , Li , IMODE , I ,  ip  , IBM , RMAX 
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0419 

760  0 

CONTINUE 

0420 

GO  TO  1000 

0421 

7900 

CONTINUE 

0422 

WRITE<1,7901> I BELL 

0423 

7901 

FORMAT <A2,/, “ERROR-ILLEGAL  VECTOR  LENGTH") 

0424 

GO  TO  1000 

0425 

4  4  4  4  4  4  *  *  44  4c  44  *  44  *  4  *  4  4  *  4  *  *  4  44  4  *  44  44  4  4  4  *  *  *  4  *  *  4  4  4  4  4  He  *  *  4  4  4  4  *  He  *  4  *  4  44  *  *  4  4  *  *  4 

0426 

C 

EXIT  TO  OTHER  OVERLAYS 

0427 

0428 

9001 

1  =  1 

0429 

GO  TO  9900 

0430 

9002 

1=2 

0431 

GO  TO  9900 

0432 

9003 

1=3 

0433 

GO  TO  9900 

0434 

9004 

1=4 

0438 

GO  TO  9900 

0436 

9005 

1=5 

0437 

GO  TO  9900 

0438 

9006 

1=6 

0439 

GO  TO  9900 

0440 

9007 

1=7 

0441 

GO  TO  9900 

0442 

9008 

1=8 

0443 

GL  TO  9900 

0444 

9900 

CONTINUE 

0445 

IFLAG=i 

0446 

CALL  RWCOM(l) 

0447 

CALL  K  YBD  <  2HMS , 38 , 1 > 

0448 

CALL  QVLD(9) 

0449 

9995 

CONTINUE 

0450 

IL=2H** 

0451 

IF< ICOMM , EQ . 12345)CALL  RWCOM(i) 

0452 

CALL  K  YBD  <  2HBS , IBS ,  0  > 

0453 

RETURN 

0454 

END 

0455 

END* 
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$Y90 0  7=00004  IS  ON  CR00103  USING  00019  BLKS  R=0147 


0001 
00  02 
0003 
0004 
0005 
0006 
0007 
0  008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0  027 
0028 
0029 
0030 
0031 
0  032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0  04S 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0  0S3 
0054 
0055 
0  056 
0057 
0058 


FTN4 ,L 


SUBROUTINE  YO 0 09 ( INTO! , IP AR ) 

THIS  PROGRAM  IS  STORED  UNDER  $Y900 


C****^***************************************************************** 

C 

C  PROGRAMMER:  R  ,  J  .  AL.LEMANG 

C  MAIL  LOCATION  #  72 

C  UNIVERSITY  OF  CINCINNATI 

C  CINCINNATI,  OHIO  45221 

C  513-475-6670 

C 

C  REVISION  DATE:  JAN, 19,1980 

C 

C************************iM********************************************* 

DIMENSION  IP  AR  ( 6 )  ,LINE(36>  ,L.INEi(3S>  ,17.(10)  ,INQ(6) 

1 , IDIV (1 ) , ICMMD ( 24 ) ,  IHd  )  ,  1X1  d  )  ,  IYi  (1  >  ,  IDXd  > ,IDY(i) 

2 , ICi < 1 ) ,IPTCM<1> 

EQUIVALENCE  ( LINE < 2 > , L INE 1 ) 

COMMON  ICOMM , MANRE , MDVA , BETA , IBLS , IT  <  5 ) , ID ( 3 ) , IP , NUMPT 
1 , NM , ICON ,NCOM,XXX(3,iO) , IX (3,10) , IC ( 1 0 ) , NMP , XR ( 3 ) ,A(2,3) 

2, 0(3), IB (10) , NCN (10) ,SF(2> , XXA ( 2 , 3 ) , YYA ( 2 , 3 > 

3 ,  FSHFT , DF , MCF , I2R , IL , IP AR 1 , IPAR2 , IPAR3 , IPAR4 , IPAR5 , IPAR6 

4 ,  IFLAG , NS , NE , RMM ( 1 0 ) ,FRQ(10) ,ZETAdO> 

EXTERNAL  HDRB,DTADO ,NMAX 

DATA  ICMMD/2HD  , 2HV  ,2H%  ,2HEX,2H:  , 

12HM  , 2H_  , 2HRO , 2HA- , 2HAM , 

22HCH , 2HSP ,2HX< , 

32HX  > , 2HCV  ,  2H (  ,2HB  ,2HL  , 

42HW  , 2HI  , 2HK  ,2HA+,2H/L, 

52HX  / 

C*********************************************************************** 

C  UNIVERSITY  OF  CINCINNATI /LEUVEN  MODAL  ANALYSIS  PROGRAM 

C 

C  DUMMY  OVERLAY  PROGRAM 

IBELL=7B 

IPAGE=15414B 

CALL  SETAD ( HDR8 , IH , -8 , 0 ) 

ICOMM=Q 

IBS=1024 

CALL  K YBD ( 2HBS , IBS , 0 ) 

CALL  GET I (NMAX , IBLM ) 

ION=IBLM-i 

ICM=ION-i 

IBtt-2 

I=I0N*IBS+27Q 

CALL  SETAD (DTADO ,IPTCM,I,-i) 

CALL  RWCOM(O) 

WRITE<1 ,900) I BELL 

900  FORMAT (A2,/, "ERROR-COMMAND  NOT  AVAILABLE  IN  CONFIGURATION" 
i,/,M  OF  SOFTWARE  AND  HARDWARE") 

C*****************:M#**#*¥********************************************** 
C  START  OF  MONITOR 

C*********************************************************************** 
1000  WRITEd ,1010) I BELL 

1010  FORMAT ("*" ,A2)  . 
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0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
P  07? 
0  073 
0074 
0075 
0076 
0077 
0078 
0079 
008U 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 


I=ISWR ( 177677B ,0,0) 

IP AR i=-9999 
IPAR2=-9999 
IP AR3=-9999 
IP AR4=-9999 
IP AR5=-9999 
IPAR6=-9999 
1020  DO  1030  1*1,36 
1030  LINE < I ) =2H , , 

1040  CALL  TTYIN(LINE) 

1042  CALL  TEST ( 1 , 1ST , LOG ) 

IF < 1ST , LT , 0 )GO  TO  1042 
CALL  CODE 
READ (LINE , 1 120 ) IL 
1120  FORMAT < A2) 

CALL  CODE 

READ (LINE! ,# ) IPAR1 , IPAR2 , IPAR3 , IP AR 4 , IP AR5 , IP AR6 

C  MONITOR  COMMAND  TABLE 

1130  IFLAG=0 

CALL  RUCOM(i) 

IF(IL.EQ.2H*#)G0  TO  1000 
NCMMD=24 

DO  1138  1=1 , NCMMD 

IF(IL.EQ. ICMMD(I))GO  TO  1144 

1138  CONTINUE 

1139  URITEd  ,1140) 

1140  FORMAT!/, “ERROR-ILLEGAL  COMMAND") 

GO  TO  1000 

1144  IF < I . GT . 1 0 ) GO  TO  1146 

GO  TO  (9004,9004,9004,9004,9004,9004,9004,9004,9004,9004),! 

1146  1=1-10 

IF(I .GT. 1Q)G0  TO  1148 

GO  TO  (9004,9004,9004,9004,9004,9995,1100,1100,9002,9001) , I 
1148  1*1-10 

GO  TO  (9001, 9003, 9008, 9011), I 
1100  CONTINUE 

IF( IPAR1 . EQ , 37 )GO  TO  9005 
IF (IPARi .EQ. 10>GO  TO  9006 
IF ( IPARi . EQ , 6)GQ  TO  9007 
GO  TO  1139 

C*************************************iM******************************* 

C  EXIT  TO  OTHER  OVERLAYS 

9001  1*1 
GO  TO 

9002  1*2 
GO  TO 

9003  1*3 
GO  TO 

9004  1=4 
GO  TO 

9005  1*5 
GO  TO 

9006  1*6 
GO  TO 

9007  1*7 
GO  TO 

9008  1*8 


9900 
990  0 
9900 
9900 
9900 
9900 
9900 


I 


Oii9 

GO  TO  9900 

0120 

9011 

1  =  11 

0121 

GO  TO  9900 

0122 

9900 

CONTINUE 

0123 

IFLAG=i 

0124 

CALL  RWCOM(i) 

012S 

CALL  KYBD(2HMS,38, I ) 

0126 

CALL  OVLD ( 9 ) 

0127 

999S 

CONTINUE 

0128 

IL=2H#* 

0129 

IF< ICOMM . EQ . 12345 ) CALL 

0130 

CALL  KYBD  ( 2HBS , IBS , 0  > 

0131 

RETURN 

0132 

END 

0133 

END* 

RUCQM ( 1 ) 
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APPENDIX  B 


AIRCRAFT  SOFT  SUPPORT  SYSTEM 


1.0  SYSTEM  REQUIREMENTS 

An  aircraft  soft  support  system  for  use  in  ground  vibration  testing  is  a  system 
which  supports  the  airplane  in  such  a  manner  that  its  elastic  modes  of  vibration 
are  little  modified  by  the  presence  of  the  support.  This  is  accomplished  by 
supporting  the  airplane  so  that  1)  its  rigid  body  natural  frequencies  are 
sufficiently  lower  than  the  first  elastic  mode  and  the  damping  in  these  rigid 
body  modes  sufficiently  low  so  that  there  is  little  coupling  between  these  rigid 
body  and  elastic  modes,  2)  the  support  pickup  points  on  the  airplane  are  selected 
to  minimize  their  effect  on  the  significant  elastic  modes  of  the  airplane,  3)  the 
internal  resonances  of  the  support  system  (including  the  test  airplane  mass)  are 
well  separated  from  the  elastic  modes  of  interest  on  the  test  airplane  and,  4) 
the  airplane  resting  on  the  support  system  is  sufficiently  stable.  In  addition 
the  support  system  should  be  sufficiently  rugged  and  reliable  to  require  little 
attention  during  use. 
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2.0  CANDIDATE  APPROACHES 


2.1  Low  Spring  Rate  Component 

Soft  support  systems  usually  contain  a  discrete  low  spring  rate  component  to 
provide  the  low  frequency  support  and  avoid  internal  resonances.  This  section 
discusses  several  ways  this  has  been  accomplished. 

Soft  Tires  -  Partially  deflating  the  tires  is  an  expedient  way  to  obtain  a  soft 
support.  In  addition  there  is  no  doubt  about  airplane  stability,  as  the  airplane 
rests  on  the  landing  gear  just  as  it  was  designed  to  do.  Soft  tires  have  the 
disadvantage  that  the  frequency  separation  between  the  rigid  body  and  elastic 
modes  is  margional,  typically  1:2  in  frequency,  and  frequently  the  tires  are 
damaged. 

Air  Bags  -  Supporting  the  test  airplane  on  air  bags  can  offer  excellent  frequency 
separation.  Air  bags  have  the  disadvantage  of  having  such  low  damping  and  low 
lateral  stiffness  that  stability  of  the  airplane  becomes  a  problem.  Often 
auxiliary  devices  must  be  used  to  compensate  for  this  shortcoming  of  air  bags. 

Mechanical  Springs  -  Mechanical  springs  can  be  selected  which  offer  excellent 
frequency  separation.  Friction  in  the  springs  and  the  large  static  deflection 
that  accompanies  the  low  natural  frequencies  cause  difficulties  with  mechanical 
springs. 
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Bungee  -  Bungee  cord  supports  have  been  constructed  that  had  very  good  frequency 
separation.  Difficulties  involved  large  static  deflections  and  load  distri¬ 
bution  among  the  multiple  bungee  cords. 

Airsprings  -  Airsprings  have  been  used  with  success  on  a  number  of  tests.  The 
airsprings  consist  of  an  air  chamber  with  a  sealed  platform  floating  on  the  air 
contained  in  the  chamber.  Self  leveling  feedback  control  devices  and  dampers  are 
common  components.  Potential  disadvantages  of  airsprings  are  limited  travel  and 
a  requirement  for  a  compressed  air  source.  Custom  fabricated  airsprings  were 
developed  for  use  in  the  X8-70  GVT  and  are  in  routine  use  at  DFVLR.  The 
airsprings  used  in  the  A-iO  test  were  commercially  available  off  the  shelf 
models. 

2.2  Support  Configuration 

Overhead  -  Suspending  the  test  airplane  from  an  overhead  support  is  a  very 
attractive  way  to  satisfy  airplane  stabillity  requirements.  Regardless  of  the 
inherent  stability  of  the  low  spring  rate  component,  pendulum  stability  will 
assure  a  stable  system.  The  difficulty  with  this  approach  is  that  the  overhead 
support  invariably  has  a  long  load  path  to  ground.  This  load  path  must  be  quite 
stiff  to  avoid  internal  support  resonances  that  couple  with  the  test  airplane. 
Hangar  walls  and  roofs  rarely  provide  the  required  stiffness  and  a  special 
overhead  frame  is  usually  required  for  the  GVT. 

Underneath  -  Suspending  the  test  airplane  from  below  rather  than  with  an  overhead 
suspension  permits  designing  to  avoid  internal  support  resonances  much  more 
easily.  The  load  paths  to  ground  are  usually  very  short,  although  care  must  be 
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taken  to  verifying  that  the  hangar  floor  the  supports  rest  on  is  reasonably 
rigid.  On  a  number  of  unfortunate  occasions  the  fill  under  the  floor  was  found 
to  have  settled,  and  the  floor  ‘.-as  really  hollow.  Special  attention  must  also  be 
paid  to  airplane  stability  with  an  underneath  suspension.  The  low  spring  rate 
components  tend  to  be  unstable  in  compression  and  special  attention  must  be  paid 
to  this  in  designing  the  support  system.  Although  easier  access  to  the  airplane 
has  been  cited  as  an  advantage  to  an  overhead  support  system,  accessibility  is 
much  more  affected  by  design  details  of  the  system  than  by  overhead  or  under 
configuration. 
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3.0  A- 10  TEST  SOFT  SUPPORT  SYSTEM 


3.1  System  Description 

The  system  selected  for  the  A-10  demonstration  ground  vibration  test  of  this 
contract  included  airsprings  and  an  underneath  support  configuration.  Three 
airsprings  and  supports  were  used.  The  airplane  was  supported  at  the  aft  body 
jacking  point  and  at  the  auxiliary  jacking  points  at  either  side  of  the  fore 
body.  This  provides  minimum  constraint  to  the  wing  and  to  aft  body  torsion,  so 
the  coupling  between  the  soft  support  system  and  most  of  the  significant  modes  of 
the  airplane  should  be  low.  This  support  configuration  also  provided  stability. 
Both  roll  and  pitch  stability  were  insured  because  the  fore  body  jacking  fittings 
are  located  vertically  near  the  c.g.  and  because  the  forebody  and  aft  body 
jacking  fittings  are  far  apart. 

3.1.1  Airsprings 

Commercially  available  airsprings  were  used  in  the  A-10  system.  These  airsprings 
had  a  mechanical  servo  system  that  kept  the  floating  platform  at  a  constant 
level.  When  the  load  on  the  airspring  increased  and  the  level  dropped  the  input 
air  valve  opened  and  the  air  pressure  in  the  airspring  increased  until  the 
platform  was  returned  to  the  desired  level.  When  the  load  decreased  and  the 
platform  level  raised  air  was  valved  from  the  airspring  by  the  servo  to  regain 
the  desired  level.  The  time  constant  in  this  servo  system  was  about  10  seconds. 
Because  this  airspring  is  a  nearly  constant  air  volume  device,  the  natural 
frequency  is  nearly  independent  of  the  mass  it  is  supporting.  For  the  airsprings 
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selected,  the  manufacturer  specified  a  vertical  natural  frequency  of  1.5  +  .1  Hz. 
The  manufacturer  also  specified  a  lateral  natural  frequency  of  2.5  Hz.  The 
airsprings  incorporated  a  damper. 

3.1.2  Support 

The  supports  under  the  airsprings  were  concrete  blocks.  The  concrete  blocks 
rested  on  the  hangar  floor.  Their  height  was  selected  to  facilitate  installation 
of  the  airplane  on  the  soft  support  system.  The  hangar  floor  at  the  test  site  had 
been  constructed  quite  some  time  ago  of  very  massive  heavily  reinforced  concrete 
especially  for  test  work. 

3.2  Fabrication 

The  commercially  available  airsprings  were  delivered  in  less  than  four  weeks 
after  ordering.  The  concrete  blocks  were  poured  in-house  in  wooden  forms.  Note 
the  fork  lift  fittings  cast  into  the  concrete  blocks  and  the  steel  bed  plate  on 
top  of  the  concrete  blocks  (see  the  photographs).  New  concrete  blocks  should 
probably  be  poured  for  each  new  airplane  design  tested  since  a  different  support 
height  will  usually  be  required  and  the  blocks  are  easy  to  fabricate.  The  blocks 
for  this  test  were  fabricated  in  three  days  at  very  modest  cost. 

A  fitting  was  fabricated  to  mate  the  top  of  the  airspring  to  the  airplane  jacking 
fitting.  Although  this  fitting  was  originally  designed  as  a  ball  and  socket 
fitting,  it  later  had  to  be  redesigned  as  a  clamped  fitting.  This  is  needed 
because  the  floating  plate  of  the  airspring  can  transmit  no  moments,  and  in  order 
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that  the  plate  float  level  either  a  point  load  must  be  applied  at  its  exact 
center,  or  a  clamped  fitting  must  be  used  forcing  the  plate  to  float  level. 

3.3  Installation 

The  concrete  blocks  were  sized  to  permit  easy  installation  of  the  airplane  on  the 
soft  support  system.  To  install  the  support  system  first  the  airplane's  oleo 
struts  were  blown  to  full  extension.  The  concrete  blocks  were  positioned  under 
the  jack  fittings  and  the  airsprings  were  placed  in  position.  The  airsprings  are 
unpressurized  and  bottomed.  The  wing  jacks  were  set  in  place  and  the  airplane 
was  jacked  from  the  wing  jacks.  The  main  landing  gear  oleo  strut  was  depressur¬ 
ized  and  the  main  landing  gear  was  retracted.  The  wing  jacks  were  slowly 
lowered,  placing  the  weight  of  the  airplane  on  the  airsprings.  The  nose  gear 
oleo  strut  was  depressurized  and  the  nose  gear  was  retracted. 

3.4  Operating  Procedure 

The  system  worked  fine  with  little  attention  required.  At  the  end  of  the  test 
day  the  wing  jacks  were  set  in  place  and  the  air  was  released  from  the  air¬ 
springs.  To  start  the  test  day  the  airsprings  were  pressurized  and  the  wing 
jacks  removed.  About  every  three  days  the  nitrogen  bottle  used  to  pressurize  the 
system  was  replaced.  The  rate  of  nitrogen  consumption  was  increased  because  of 
valving  when  someone  would  be  walking  on  one  wing  (e.g.  to  check  a  troublesome 
accelerometer)  with  the  suspension  system  active. 
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4.0  BOILERPLATE  TEST 


A  boilerplate  test  was  conducted  on  the  airsprings  to  verify  «.ieir  operation 
before  the  GVT  and  to  confirm  the  manufacturers  natural  frequency  specifica¬ 
tions. 

Two  different  test  rigs  were  used.  The  test  rigs  were  assembled  from  standard 
structures  laboratory  "tinker  toy"  I  beams,  2500  lb.  dead  weights  and  the  air- 
springs.  The  first  test  rig  attempted  to  simulate  the  airplane  mass,  inertia  and 
jacking  point  locations.  As  first  built  up  this  rig  had  its  center  of  gravity 
about  two  feet  higher  than  the  airplane's.  This  system  was  unstable  in  roll 
because  the  natural  frequency  in  roll  coincided  with  the  natural  frequency  of  the 
servo-leveling  feedback  control  system.  (Note  that  gravity  acts  as  a  negative 
spring  in  roll  for  this  case.  The  effective  roll  spring  is  the  airsprings  minus 
the  gravity  effect.  The  higher  the  c.g.  the  larger  is  the  gravity  effect.)  After 
the  rig  was  rebuilt  to  get  the  c.g.  correct  there  were  no  more  stability 
problems.  The  rig  was  shaken  to  determine  its  modes  and  frequencies. 

The  results  of  this  test  are  tabulated  in  Figure  B-l.  A  sketch  of  this  rig  is 
included  in  Figure  B-2.  Because  this  rig  proved  undesirably  flexible  a  second 
test  rig  was  built.  This  rig  had  the  long  flexible  elements  shortened  up  as  much 
as  possible.  The  mass  of  the  airplane  was  matched  by  the  rig  and  the  jacking 
point  locations  approximately  preserved,  but  inertia  was  not  matched.  The  rig 
was  only  shaken  for  the  vertical  translation  mode,  which  was  recorded  as  1.41  Hz. 

Photographs  of  the  test  rig  are  shown  on  Figures  B-3  through  B-8. 
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Frequency 

Description 

.5  Hz 

Body  roll  -  More  rocking 
motion  on  aft  pillow 

1.17  Hz 

Roll  about  logitudinal 

Not  a  clean  mode 

1.5  Hz 

Pitching  of  body 
(frequency  could  be  from 

1.5  to  1.7  Hz.) 

2.6  Hz 

Forward  -  Aft  pitching 
forward  end  with  small 
amplitude  -  not  in  or 
out  of  phase 

2.9  Hz 

Body  torsional  -  Aft 
shimmy  lateral  (frequency 
could  be  from  2.8  to  3.0 

Hz.) 

3.7  Hz 

Forward  body  vertical 

4.S  Hz 

Right  front  vertical  some 
rolling  of  structure  with 
FWD-AFT  movement 

6.9  to  9.0  Hz 

Beam  bending  and  2640# 
mass  motion  (rocking) 

Note:  The  response  of  this  structure  is  complex  -  all  modes  contain 
motion  in  practically  every  possible  direction.  Damping 
appears  low  -  for  the  structure  and  high  for  the  pillow 
supports.  The  supports  do  bottom  out  at  low  frequencies 
and  lateral  motion  of  only  about  1/4"  can  exist  before 
exceeding  the  units  side  travel. 

Figure  B-1.  Boilerplate  Test  Rig  No.  1  Results 
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Figure  B-Z  A-10  Air-Spring  Sutpention 
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Figun  B'X  Boilarpiata  Tmt  Rig 
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Figun  B-6.  Aft  Airspring-Boilerplate  Test 
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Figure  B-8.  Shaker  Installation— Boilerplate  Test 
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Summary  Chart  -  Industry  Interviews 


Summary  Chart  -  Industry  Interviews  (Concluded) 
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